Topic: обработка всех записей db
Добрый день.
нужно подсветить ячейку в гриде по условию
procedure FrmOne_Button23_OnClick (Sender: TObject; var Cancel: boolean);
var s, i: integer;
begin
// проходим по всем строкам таблицы
for i := 0 to FrmOne.TG_PayRoll.RowCount-1 do
// если есть совпадение (данное сравнение возвращает истину или ложь)
if ((FrmOne.TG_PayRoll.Cell[17,i].AsString) = SQLExecute('SELECT RecipientPay FROM TemPay Where Transf > 240000'))= True then
begin
ShowMessage (FrmOne.TG_PayRoll.Cell[17,i].AsString + 'в списке');
// присваиваем переменную
s := (i);
// раскрашиваем ячейку
frmOne.TG_PayRoll.Cell[17,s].Color := $FF00E2;
end;
end.
проблема в том что обрабатывается только первая запись db TemPay.RecipientPay
как добиться проверки по всем записям db?