Ich möchte den Text, den der Anwender in ein Edit-Feld eingibt, mit dem onchange-Ereignis in eine integer-Variable schreiben.
Wenn ins Edit-Feld ein neuer Wert eingetragen wird, kommt es vor, dass das Feld kurzzeitig leer ist.
Dann kann die Umwandlung strtoint nicht funktionieren.
Dies habe ich nun versucht so abzufangen:
Code: Alles auswählen
implementation
{ TForm1 }
var zahl : integer;
procedure TForm1.Edit1Change(Sender: TObject);
begin
try
zahl := strtoint(edit1.text);
except
zahl := 0;
end;
end;
Das funktioniert aber nicht, ich bekomme trotzdem die Fehlermeldung:
"project1 raised Execption class 'EConvertError'"
Hat jemand eine Idee?
Gruss
Eberhard