![]()  | 
	
 
  | 
| 
	 | 
| 
		 
			 
			#1  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 Имется поля Edit, в которые пользователь вводит данные. В поля можно вводить только цифры и запятую. Если из поля все удаляется, то соответственно выдается сообщение об ошибке. 
		
	
		
		
			Что можно сделать чтобы пользователи это поле не оставляли пустым, или чтобы оно нулями заполнялось или сообщение об ошибке типа "Поле не должно быть пустым" появлялось. Спасибо.  | 
| 
		 
			 
			#2  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Код: 
	procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Text='' //если поле Edit пустое
               then//то...
 end; | 
| 
		 
			 
			#3  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 В событии OnExit  
		
	
		
		
		
		
			
		
		
		
		
	
		
		
	
	
	Код: 
	if Length(Edit1.Text)=0 then ShowMessage('');ЗЫ: Я так понял это работа с датами ... в этом случае нужно по Else ставить проверку на коректность даты  | 
| 
		 
			 
			#4  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 Если это диалоговая форма, то лучше в OnCloseQuery сделать все проверки. 
		
	
		
		
		
		
		
	
		
		
	
	
	 | 
| 
		 
			 
			#5  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 Нет, работа не с датами, обычное Edit поле. 
		
	
		
		
		
		
		
	
		
		
	
	
	 |