Что не так с кодом?
wt:=0;
if o1<>'' then wt:=wt+1;
if o2<>'' then wt:=wt+1;
if o3<>'' then wt:=wt+1;
if o4<>'' then wt:=wt+1;
if o5<>'' then wt:=wt+1;
if o6<>'' then wt:=wt+1;
if wt=2 then showmessage(inttostr(wt));
//o1-o6 это поля из таблицы и они 100% не пустые
-
А что пишет? Что не устраивает?
Проверьте кавычечки... -
Бог с ним, с отсутствием эндифа, но все твои данные неравны двум апострофам, т. е. вся последующая строка - комментарий. Или пишите, чей это синтаксис.
-
возможно нужно получить значение поля таблицы каким-то методом
а вы получили целый объект "ячейка таблицы" -
поля таблицы?
а TStringGrid используешь?
//--------------
wt:=0;
for i:=0 to StringGrid1.RowCount-1 do // строки
for j:=0 to StringGrid1.ColCount-1 do //столбцы (поля)
begin
if StringGrid1.Cells[j,i]<>'' then inc(wt);
end;
if wt=2 then showmessage(inttostr(wt));
