[code=delphi]begin
try
Anfangskapital := StrToFloat (edit1.text) ;
Laufzeit.SetFocus ;
except
Val (edit1.text, wert, code);
ShowMessage (‘Eingabefehler!’ +#13#13+
'Variable = Anfangskapital' +#13+
'Stelle = ' +IntToStr(code) +#13+
'Falsches Zeichen=' + Edit1.text
Code:
+#13#13+
'Bitte Eingabe wiederholen...')
Edit1.text := ’’ ; // oder Edit1.clear;
Shortint(key) := 0 ;
// EDIT!!!: Hier hat unser Lehrer gemeint, er weiss nicht wieso man das hier reinschreiben muss, damit es funktioniert. Naja ich denke mal dass es hier einige geben wird, die das wissen. Deshalb wäre ich sehr verbunden wenn mir das jemand erklären könnte ;) Also das " ShortInt(key) = 0; " meine ich.
Edit1.SetFocus;
end;
Sagte ich schon mal was zum Lehrer tauschen ... (Hildesheimer, da vergisst man nur die Hälfte) ...
Also ein try except end nehme ich eigentlich nur dann, wenn ich vorher keine Chance habe zu prüfen, ob denn auch alles richtig laufen wird (z.B. Abfrage eines Datenbank-Servers, der könnte während der Abfrage auch abrauchen)
Für diesen speziellen Fall würde ich aber wie folgt prüfen
Delphi-Quellcode:
if ( StrToFloatDef( Edit1.Text, -1 ) < 0 )
then
begin
ShowMessage( '' );
...
end;
und schöne Grüße an den Lehrer, ist wie im Deutsch, da gibt es Duden, das mich auch ganz doll helft ...
cu
Oliver