Einzelnen Beitrag anzeigen

wolfaa

Registriert seit: 14. Jan 2011
11 Beiträge
 
Delphi 7 Personal
 
#1

Buchstaben als Fehlermeldung in Editfeldern

  Alt 26. Jan 2011, 20:52
hallo ich würde gerne wissen wie man eine fehlerabweisung mit einer try-except(?)-schleife schreibt die BUCHSTABEN abweist d.h. wenn man buchstaben in das textfeld eingibt wird eine fehlermeldung gemacht...
und das gleiche mit zahlen im negativen bereich.
ich habe das schon mit 0 geschafft komme aber jetzt nicht weiter.
Delphi-Quellcode:
procedure TForm1.RechenBtnClick(Sender: TObject);
begin
DatenAktualisieren;
MaskeAktualisieren;


if EdGasverbrauch.Text = '0then
begin
   EdGaspreis.Text:= ' ';
   ShowMessagePos('Bitte geben sie eine Zahl ein, die im Bereich über 0 liegt!', 300, 300);
end;
vielen dank im vorraus den oberen teil mit daten und maske einfach ignorieren
  Mit Zitat antworten Zitat