Подскажите аналогичный синтакис для АДО
Код:
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
Но не по всем полям где равенство выполняется почему то проверяет \\по строчкам всем проверяет