Hab ich vorher gemacht. Da jammert Delphi 7 das man Variant nicht in boolean convertieren kann oder so.
Ich hab jetzt den Code:
Delphi-Quellcode:
if (zahl.Text = '') then
zahl.Text := '1';
MessageDlg(zahl.text, mtError,[mbOK], 0);
Der MessageDlg zeigt aber wenn im mask Edit nichts ist auch nichts an!
Also nicht 1!!!!!