Maximale Eingabe im Editfeld.

[Lostriga]

Aloa,

ich habe folgendes Problem.

Ich habe mir vor längerem mal ein Programm gebastelt,
in welchem ein Editfeld auf folgendes eingeschränkt war:

Nur Zahleneingabe möglich,
maximal 4 Zeichen,
und >> maximal Wert von 1200 <<. (sobald z.B. 1201 eingegeben wird, wird die Zahl auf 1200 gesetzt)

Damals hab ich das fast aus dem Ärmel geschüttelt, doch jetzt weis ich irgend wie nicht wie es funktioniert!
Zu meinem Pech, ist mir auch noch genau dieser Teil des Sources abhanden gekommen.

Ich habe das jetzt mit folgenden Versuchen probiert, war alles falsch und kam mir auch selbst schwachsinnig vor:

Delphi-Quellcode:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
Time : String;
begin
Time := StrToInt (Edit1.Text);
if Edit1.Text > Time then Edit1.Text := '1200';
end;

Delphi-Quellcode:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
Time : Integer;
begin
Time := StrToInt (Edit1.Text);
if Edit1.Text > Time then Edit1.Text := '1200';
end;

Delphi-Quellcode:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
Time : Integer;
begin
Time := 1200;
if Edit1.Text > Time then Edit1.Text := '1200';
end;

Delphi-Quellcode:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Edit1.Text > '1200' then Edit1.Text := '1200';
end;

Vielleicht wisst ihr ja wie die Lösung meines Problems lautet.


Mit freundlichem Gruß

Lostriga