[Moneo]

Подскажите аналогичный синтакис для АДО

Код:

for j := 1 to stringgrid1.colcount do
if stringgrid1.cells[j,i]='(пусто)' then empty:=true;

Пробовал это:

Код:

for k:=0 to ADOQuery1.FieldCount-1 do
begin
if ADOQuery1.Fieldbyname(''+ADOQuery1.Fields[k].FieldName+'').asstring='(пусто)' then 
begin empty:=true;
memo1.lines.add(adoquery1.FieldByName('F1').asstring);
end;
end;
//КОНЕЦ ОТСЕВА
if empty=false then

 begin

Но не по всем полям где равенство выполняется почему то проверяет \\по строчкам всем проверяет