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
