Создал 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;

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

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

Задача такая: необходимо вывести матрицу в одномерный массив проходя его зигзагом.
К примеру матрицу:
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16
надо вывести в одномерный массив: 1 2 5 9 6 3 4 7 10 13 14 11 8 12 15 16.

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

Есть файл (File of Byte) с данными (аналог БД), нужно поменять в нем по определенному адресу байты.
Может быть, есть возможность поменять только нужные байты без полной перезаписи файла?

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

Напишите пожалуйста небольшой пример вертикального меню из процедур, которые можно листать стрелками на клавиатуре. То есть даны две или больше процедур, нужно сделать так ,чтобы они были в начальном меню на выбор для выполнения, и их можно было листать, после чего на Enter активировать.

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

Ошибка в строке
Cells[j, i]:=Excel.WorkSheets.Item[‘Лист1’].Cells ;
Несоответствие Variant и String.
Где тут ошибка?

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

Кто знает можно ли создать стандартными библиотеками windows zip\rar архив в Delphi. Так сказать без использования unrar.exe.

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

Есть график. Как организовать зум с помощью canvas? Без использования tchart.

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

В DelphiXE7 не работает функция LowerCase для русских букв. Какая есть альтернатива?

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

Есть два числа: Val1 := 2.4640976995 и Val2 := 0.43860939051
функция FloatToStrF(ValN,ffGeneral,6,4) дает результаты: 2.4641 и 0.438609
Как преобразовать число в строку с фиксированным количеством знаков в дробной части?

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

Делаю небольшую программку, в которой таблица должна заполняться рандомными числами из указанного промежутка. С целыми числами всё в порядке, а вот с дробными, т.е. вида от 0,003 до 0,0015 (возникает ошибка: Incompatible types: ‘Integer’ and ‘Double’).

cells[i,j]:=FloatToStr(RandomRange(a,b));

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