max. wert von editboxen

[DeddyH]

Ich habe gerade kein Delphi zur Verfügung, aber das müsste doch so gehen:

Delphi-Quellcode:

var Zahl: integer;
...
if not (TryStrToInt(TEdit(Sender).Text,Zahl) and (Zahl in [0..15])) then
  ShowMessage('Fehlerhafte Eingabe');

[edit] Da fehlten Klammern. [/edit]

[Fussball-Robby]

Erstmal an den Threadersteller: Du musst dringend mehr Eigeninitiative zeigen! Es geht so einfach nicht, dass du nach einem kurzen Blick in die Hilfe aufgibst, prober doch mal was aus. Lies nach, welchen Parameter TryStrToInt noch erwartet!
Lösen würde ich es dann so:

Delphi-Quellcode:

  Zahl := StrToIntDef(TEdit(Sender).Text, -1);//in Zahl umandeln, wenn es keine Zahl ist, kommt -1 raus (Nicht in 0..15)
  if not (Zahl in [0..15]) then//wenn die Zahl nicht zwischen 0 und 15 ist..
    ShowMessage('Fehlerhafte Eingabe');//.. ist es eine fehlerhafte Eingabe