Проблема при работе с DBEdit

[drossell]

Добрый день!
Возник вот такой вопрос:
Перед тем как записать в БД данные (Нажатие кнопки ОК), производится
проверка заполненности DBEdit1, если ни чего нет, то появляется
предупреждение.
У меня DBEdit всего 21, немогу разобраться, как записать, чтобы проверяло не только DBEdit1 но и все остальные?

 procedure TfmUtil.bbtOKClick(Sender: TObject);

begin
   if DM.tbUtil.State in [dsEdit, dsInsert] then
   DM.tbUtil.Post;
  if fmUtil.DBEdit1.EditText = '' then
    Application.MessageBox('Не ВСЕ поля заполнены!',
      'Ошибка', MB_OK + MB_ICONERROR)
  else begin

      DM.tbUtil.Edit;
      DM.tbUtilData.AsDateTime := dtpDate.Date;
      DM.tbUtilDatavidachi.AsDateTime := DateTimePicker1.Date;
      DM.tbUtil.Post;

    //Завершение транзакции с сохранением всех введенных данных:
    if DM.Database1.InTransaction then
      DM.Database1.Commit;
      close;
   end;
end;

За ранее спасибо!

[vovk]

Раз используете TDBEdit для редактирования - вставки, то значит текущая запись в таблице как раз и есть добавляемая - редактируемая. В общем можно проверять содержимое полей в Tdataset, просто циклом пробежатся по полям и проверить значение

var
i:integer;
flag_:Boolean;
begin
flag_:=false;
 i:=0;
WHile not flag_ and (i<DM.tbUtil.Fieldcount) do (или какой у вас компонент)
begin 
flag_:= Trim(DM.tbUtil.Fields.Fields[i].AsString)='';
inc(i);
end; 
if flag_ then Application.MessageBox('Не ВСЕ поля заполнены!',
      'Ошибка', MB_OK + MB_ICONERROR)
else
.............

Естественно мнужно добавить условия чтобы проверелись только нужные поля.
Ну или пееребирать все компоненты на форме и если компонент Tdbedit то тоже самое

var
i:integer;
flag_:Boolean;
begin
flag_:=false;
 i:=0;
WHile not flag_ and (i<fmUtil.ControlCount) do 
begin 
if fmUtil.Controls[i] is TDBEdit then
flag_:=TRim((fmUtil.Controls[i] as TDBEdit).text)='';
inc(i);
end; 
if flag_ then Application.MessageBox('Не ВСЕ поля заполнены!',
      'Ошибка', MB_OK + MB_ICONERROR)
else
.............

//Набирал тут мог ошибится

кстати зачем у вас

if DM.tbUtil.State in [dsEdit, dsInsert] then
DM.tbUtil.Post;

до проверки?

[drossell]

Всё, разобрался, теперь работает так, как надо!