Pflichtfeld

[shmia]

Delphi-Quellcode:

procedure TForm1.DBEdit1Exit(Sender: TObject); 
begin 
 if (DBEdit1.Text = '') then 
 begin 
   ShowMessage ('Pflichtfeld'); 
   Abort; // "stille" Exception verhindert das Verlassen von DBEdit1 
 end; 
end;