Feststellen von Integer-Wert

[The-X]

warum prüfst du nicht in der anderen Richtung ?

Delphi-Quellcode:

var I:Integer;
Begin
 Try
  I:=StrToInt(Edit1.Text);
 except;
  I:=-1; // Fehler ;)
 end;
 if i in [0..300] Then begin
  // [bla]
 end else begin
  // [blubb]
 end;
end;