|
|
Регистрация | << Правила форума >> | 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
|
||||
|
||||
ООО спасибо тебе человечеще, а то весь мозг вынес заработало ещё раз спасибо.....
|