Что не так с кодом?

01.01.2001

Что не так с кодом?
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));

Вас заинтересует