Как данные из Edit1.text, Edit2,text записать в текстовый документ?

(читать всё…)

Есть текстовый файл:

4310139A000PB9;ГАЛИНА;АЛЕКСАНДРОВНА;КОШЕЛЬ;19390131;MH;0010330;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400826;34;16;;137
4010139A000PB0;ОЛЬГА;ТИХОНОВНА;ДИВИНА;19390101;MH;0010359;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400724;34;22;;28
4190639A000PB6;НИНА;АЛЕКСЕЕВНА;КАЗАЗЯН;19390619;MH;0010355;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11401062;34;74;2;14
4240439A000PB8;ТАМАРА;СЕМЁНОВНА;ЗОЛОТАРЁВА;19390424;MH;0010365;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400173;34;70;;86
4260839A000PB2;ОЛЬГА;АНАТОЛЬЕВНА;ТКАЧЕНКО;19390826;MH;0010092;16/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400161;34;6;;32

Нужно первые 7 значений (каждое из которых разделено знаком «;») записать в свою переменную. Остальные данные не нужны.

(читать всё…)

Составить алгоритм и программу для вычисления в цикле суммарного результата.
Найти суммарную площадь n прямоугольных треугольников, если длина меньшего катета треугольника равна квадратному корню из длины большего, а длины больших катетов равны b, b/2,…b/n

(читать всё…)

Написать приложение, состоящее из 2-х форм. На первой расположить:
— два текстовых поля, в которых задаются размеры второй формы;
— кнопку «Форма 2», при нажатии на которую открывается вторая форма заданного размера;
— кнопку «Изменить», при нажатии на которую Форма 2 то увеличивает, то уменьшает размеры до определенных пределов.

(читать всё…)

Найти номера нечетных элементов, стоящих на четных местах массива, в консоли.

(читать всё…)

Есть ли такой исходник, который будет сокращать дроби типа: 2/3*3?
(читать всё…)

Не могу понять как узнать номер строки последнего разрыва страницы.

(читать всё…)

Мне нужно написать функцию которая ищет сумму цифр числа представленного на вход
например, для числа 123 это будет 1 + 2 + 3 = 6
Подскажите алгоритм как это сделать, а то я не могу понять как это сделать

(читать всё…)

Как описать такой момент, когда файла допустим нет в папке, то он выдал не ошибку, а что «файла не существует» или когда неправильно ссылку на файл ввести, чтобы не ошибку выдавал.

(читать всё…)

Создал 2 базы в Database Desktop, потом подключил их в BDE Administrator, в поле edit ввёл этот код для фильтрации данных в дувух таблицах DBgrid:

if Edit1.Text<>'' then
begin
Table1.Filtered:=true;
Table1.Filter:=DBGrid1.SelectedField.FieldName+'='''+Edit1.Text+'*''';
end
else
Table1.Filtered:=false;
end;

Но почему то всё равно не работает фильтрация.

(читать всё…)