Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Анализ сортировок массивов Произвести анализ сортировок массивов: Сортировка пузырьком; Сортировка прямым включением. Для чего отсортировать по неубыванию массивы целочисленных элементов различной размерности: 10 элементов, 100 элементов, 2000 элементов. Анализ произвести по числу сравнений и числу обменов двух элементов. Исследования производить над массивами трех типов: 1. Массив, содержащий неотсортированные элементы... https://www.cyberforum.ru/ delphi-beginners/ thread1854500.html	Delphi Memo Здравствуйте! Помогите, пожалуйста с заданием. Необходимо для первого компонента Memo посчитать сумму кодов ASCII символов в тексте, кроме специальных (пробел, табуляция, переход на новую строку) и вывести результат во второй компонент Memo. Дело в том, что вывести результат я смогу, а вот как именно подсчитать сумму кодов не знаю.
Delphi Чем можно открыть программку и посмотреть формулу зарытую в ней Привет Всем! Да простят меня админы и прежде чем обвинять меня в намерении взлома, напишут как тогда решить мой трабл не нарушая правил форума. Есть программка (экзешная), написанная ещё в 2001 году, как написал один добрый человек в Делфи, в ней забиты определённые коэффициенты, которые с тех пор изменились. Хочу это исправить. Пытался открыть её через IDA, блокнот, а там - абракадабра.... https://www.cyberforum.ru/ delphi-beginners/ thread1854448.html	Delphi Ошибка типа "Undeclared identifier" unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, DBCtrls, jpeg, ExtCtrls, Menus, Buttons; const maxSymbols=10; https://www.cyberforum.ru/ delphi-beginners/ thread1854442.html
Из Паскаля в делфи переделать Delphi Помогите переделать код из паскаля в делфи, очень надо. в скайп kanysh9901	Delphi Try.except.end https://www.cyberforum.ru/ delphi-beginners/ thread1854405.html Здравствуйте уважаемые форумчане. Возник вопрос, можно ли сделать переход на except специально? Мне над сделать так если edit1.text <> name то перейти в except, если edit1.text = name то в try выполняются команды иначе переход в except и там обработать случаи если он не <>?
Delphi Как убрать рамку в компоненте WebBrowser или изменить ее цвет? Доброго времени суток Интересует как убрать рамку в компоненте WebBrowser или изменить ее цвет в других компонентах есть свойство BorderStyle, но тут увы нет https://www.cyberforum.ru/ delphi-beginners/ thread1854274.html	Delphi Средства, позволяющие изменять приоритет каждого потока не изменяя текста программы Какими средствами дополнить программу, чтобы изменять приоритет каждого потока не изменяя текста программы. Смена приоритетов должна быть разрешена только после остановки всех потоков.
Delphi Формулы Бэкуса-Наура Полез смотреть формулы Бекуса-Наура , но нигде не смог найти их применение и примеры. var a:string; z,x,c,v,b:integer; begin Z:=0\|1\|2\|3\|4\|5\|6\|7\|8\|9; X:=<Z>{<Z>}; C:=<X>\|+<x>\|-<X>; V:=<C>.<X>; B:=<C>E<c>\|<V>E<C>; https://www.cyberforum.ru/ delphi-beginners/ thread1854190.html	Delphi Как поделить Time на число https://www.cyberforum.ru/ delphi-beginners/ thread1854171.html Как поделить время на какое нибудь число? Например: var t1,t2:TDateTime; begin t1:=strtotime('00:46'); t2:=round(t1/2); //00:23 edit1.Text:=timetostr(t2); end; вроде должно выводить 00:23, но показывает 0:00:00.
Delphi Копирование из Label Нужно сделать так,чтобы при нажатие на кнопку "Копирование" - копировался текст (Caption) ,который указан в Label	Delphi Перестановка строк в матрице местами Добрый вечер.Помогите переставить строки местами в матрице.Все задания выполнил , осталось только это ."осуществить перестановку соответствующих по j элементов второй строки и строки имеющей максимальный по значению первый элемент."-точная формулировка задания. procedure TForm1.N3Click(Sender: TObject); var i:byte; c:Real; begin for i:=1 to n do for j:=1 to m do begin c:=a; a:=a;... https://www.cyberforum.ru/ delphi-beginners/ thread1854084.html

Puporev

Почетный модератор

64299 / 47594 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

19.11.2016, 15:26

Записать в Memo случайные числа, и при нажатии кнопки удалить все нечетные числа - Delphi - Ответ 9788713

19.11.2016, 15:26. Показов 5097. Ответов 16

Метки (Все метки)

Ответ

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
    s1:string;
begin
s1:='';
Memo1.Clear;
i:=0;
while Pos(' ',s)>0 do
 begin
   i:=i+1;
   if not Odd(i) then s1:=s1+copy(s,1,Pos(' ',s)-1)+' ';
   delete(s,1,Pos(' ',s));
 end;
Memo1.Lines.Add(s1);
end;

Вернуться к обсуждению:
Записать в Memo случайные числа, и при нажатии кнопки удалить все нечетные числа Delphi

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

19.11.2016, 15:26

Готовые ответы и решения:

Дан файл, содержащий целые числа. Записать их в другие два файла, при этом в первый записать четные, а во второй нечетные числа
Дан файл, содержащий целые числа. Записать их в другие два файла, при этом в первый записать...

Дан файл, содержащий целые числа. Записать их в другие два файла, при этом в первый записать четные, а во второй нечетные числа.
Дан файл, содержащий целые числа. Записать их в другие два файла, при этом в первый записать...

Переписать числа в массив Z по условию. Удалить все нечетные числа
Заданы массивы целых чисел X(n) и Y(k). Три наименьших простых числа из массива Y и числа из...

При нажатии на CheckBox должны сгенерироваться случайные числа .
При нажатии на CheckBox должны сгенерироваться случайные числа в 6 строк и 6 цифр в каждой строке....

	19.11.2016, 15:26

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

19.11.2016, 15:26

Помогаю со студенческими работами здесь

Записать в файл - g все четные числа файла - f, а в файл - h все нечетные числа
№2 Программирование и работа с файлами: Дан файл - f, компоненты которого являются целыми числами....

Записать в файл B все четные числа из файла A, а файл C все нечетные числа
Дан файл А, сосотоящий из целых чисел. Записать в файл B все четные числа из файла A, а файл C все...

Записать в файл B все четные числа из файла A, а файл C все нечетные числа
Записать в файл B все четные числа из файла A, а файл C все нечетные числа. Почему не записывает...

Как выводить случайные числа в Label при нажатии на кнопку
Необходимо следующее: есть label1.Text,который вначале отсутствует(или может равнятся 0),и кнопка...

Наверх