TEdit-Feld MUSS einen Wert enthalten!!

[m-werk]

Hi, ich habe ja einen code zusammengeschnipselt:

Code:

procedure TKundendaten.SpeichernClick(Sender: TObject);                         
begin
 if DBEdit38.Text = '' then
 MessageDlg('Sie haben das Geburtsdatum nicht eingetragen. Bitte tragen Sie jetzt ein Geburtsdatum ein!', mtError,[mbOK], 0)
 else
  try
  DM.ADOSHaupt.Post; //DM.ADOSHaupt.Refresh;
  except
    on exception do
      MessageDlg('Keinen Wert zum speichern gefunden oder der Datensatz wurde bereits gespeichert!',
      mtWarning,[mbOk],0);
    end
end;

So sieht der Code zur Zeit aus.

Hast du da einen besseren vorschlag?