[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

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

[NumLock]

Код:

if ADOQuery1.Fields[k].IsNull then

[Moneo]

Сообщение от NumLock

Код:

if ADOQuery1.Fields[k].IsNull then

спасибо работает, но я не знал что это поможет. Я подключаюсь к Excel через ADO прямо к файлу и у меня в файле некоторые ячейки заполнены как "(пусто)", похоже он при запросе АДО распознает их как пустые совсем без надписи (пусто) поэтому мой код не работал?