Zahlen im Edit "filtern"

[raiguen]

Zitat von Merchator:

...Dort dürfen allerdings nur Zahlen zwischen 0-29 rein.
Allerdings dürfen die Zahlen 1,3,11,13,22,27 auch nicht da rein....

Um beide Bedingungen zu erfüllen würde ich das so machen:

Delphi-Quellcode:

procedure Button1Click(Sender: TObject);
var  i: Integer;
     s: String;
begin
  s := Trim(Edit1.Text);    // evtl. Leerstellen vor und nach dem Eingabetext abschneiden
  i := StrToIntDef(s, 0);

  if ( i in [0..29] ) and ( i not in [1,3,11,13,22,27] ) then
  ...
end;

Empfehlung für die EIngabe: Im ObjektInspektor für das Editfeld die Eigenschaft MaxLength auf 2 setzen, so dass maximal nur eine 2-stellige Zahl eingegeben werden kann.
Desweiteren würde ich alle anderen Zeichen abblocken, sprich nur Ziffern zulassen; entsprechende CodeSchnippsel gibt's hier im Forum zur Genüge