![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
||||
|
||||
|
Всем доброго времени суток, нужна консультация не могу понять в чем ошибка....
Код:
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-ов на пустые значения...... (выделил красным) |
|
#2
|
||||
|
||||
|
Попробуй так
Код:
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 |
|
#3
|
||||
|
||||
|
Нет не помогло.....
|
|
#4
|
||||
|
||||
|
пишет
[Error] Unit3.pas(73): Operator not applicable to this operand type и встает на эту строчку: if ((edit1.Text:='')or(edit2.Text:='')or(edit11.Text: ='')or |
|
#5
|
||||
|
||||
|
Вот я тоже загнал)))
Напиши вместо := вот это = Так Код:
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 Код:
if Length(Edit1.Text)=0 then Последний раз редактировалось NIch, 05.03.2010 в 16:47. |
|
#6
|
||||
|
||||
|
ООО спасибо тебе человечеще, а то весь мозг вынес заработало ещё раз спасибо.....
|