Feststellen von Integer-Wert

[daniel8520]

Hallo,

ich wollte mal fragen, on mir jemand meine folgende Frage beantowrten kann:

Ich möchte gern feststellen, ob sich in einem Edit.Text ein Integer-Wert ist. Damit aber nicht genug. Er muss auch noch zwischen 0 und 300 liegen. Es wäre jetzt etwas aufwending es so zu machen:

Delphi-Quellcode:

If (Edit1.Text = IntToStr(1)) or (Edit1.Text = IntToStr(2)) ...

Hat da jemand eine Idee, wie man das lösen könnte?

[Luckie]

Delphi-Quellcode:

if (i > 0) and (i < 300) then

Und wenn man nut Integers eingeben darf, dann würde ich die auch nur zu lassen: Ziffern Edit.

[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;

[mirage228]

Delphi-Quellcode:

var
  i: Integer;
begin
  if TryStrToInt(Edit1.Text, I) and (I > 0) and (I < 300) then
  begin
   // mach was
  end;
end;

mfG
mirage228

[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

[The-X]

und wieder was dazugelernt ;) TryStrToInt kannte ich noch garnich :gruebel: :thuimb: :dp: