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