Проверка на несколько пустых полей

[sdr1]

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

Надо написать Self.Close , а ещё добавить Break перед ним и их вместе окружить бегин-ендом.
Захотите разобраться почему - прочитайте о потенциальных проблемах из-за with в инете.

begin
ADOQuery77.First;
with dbgrid1.DataSource.DataSet do
while not Eof do begin
if (DBGrid1.DataSource.DataSet.Fields[5].AsString='')or(DBGrid1.DataSource.DataSet.Fields[11].AsString='')or(DBGrid1.DataSource.DataSet.Fields[12].AsString='') then begin

       MessageDlg('поля не заполнены.',
          mtError,[mbOK],0);
next;
 end else
begin
break;
self.close;
end;
end;
end;

Так не работает, перепрыгивает на верхнюю строку и ничего больше не происходит проверка не проходит, закрытие тоже.

[Аватар]

self.close; ни когда так не выполнится. Break не даст. Отформатируй код нормально, сам увидишь почему. Еще бы в одну строчку написал

[phomm]

Я извиняюсь, ввёл в заблужние, видимо о чём-то другом параллельно думал, конечно же, брейк _после_ клоуза.