Feststellen von Integer-Wert

[Muetze1]

Moin!

Delphi-Quellcode:

Var
  Wert : Integer;
Begin
  Wert := StrToIntDef(Edit1.Text, -1);

  If ( Wert < 0 ) Or ( Wert > 300 ) Then
  Begin
    ShowMessage('Wert muss zwischen 0 und 300 liegen!');
    Edit1.SetFocus;
    Exit;
  End;

  // Wert war ok, also hier dami arbeiten
End;

MfG
Muetze1