Всем доброго времени суток, нужна консультация не могу понять в чем ошибка....
Код:
procedure TForm3.Button1Click(Sender: TObject);
begin
if (edit1.Text:='')or(edit2.Text:='')or(edit11.Text:='')or
(edit12.text:='') or (edit3.Text:='')or(edit4.Text:='') or
(edit5.Text:='') or (edit6.Text:='') or (edit7.Text:='') or
(edit8.Text:='')or (edit9.Text:='') or (edit10.Text:='') then
MessageDlg('Çàïîëíèòå âñå ïîëÿ', mtError,[mbOk], 0)
else
form3.Table1.Insert;
table1.Fields.Fields[0].AsString:=Edit1.Text;
table1.Fields.Fields[1].AsString:=Edit2.Text;
Table1.Fields.Fields[2].AsDateTime:=datetimepicker1.Date;
table1.Fields.Fields[3].asstring:=edit11.Text;
table1.Fields.Fields[4].asstring:=edit3.Text;
table1.Fields.Fields[5].asstring:=edit5.Text;
table1.Fields.Fields[6].asstring:=edit6.Text;
table1.Fields.Fields[7].asstring:=edit7.Text;
table1.Fields.Fields[8].asstring:=edit8.Text;
table1.Fields.Fields[9].asstring:=edit9.Text;
table1.Fields.Fields[10].asstring:=edit10.Text;
table1.Fields.Fields[11].asstring:=edit4.Text;
table1.Fields.Fields[12].AsString:=memo1.Text;
table1.Post;
end;
почемуто ругаеться при проверку Edit-ов на пустые значения...... (выделил красным)