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

[mkinzler]

Delphi-Quellcode:

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

[Lostriga]

*mir auf den Kopf klopf*

Ich danke dir mkinzler.
Funktioniert ohne Tadel, einmanfrei!

*doch so einfach*


Mit freundlichem Gruß

Lostriga

[Matze]

Hallo,

bitte verwende zukünftig die Schriftfarbe des Foren-Standards (schwarz). Das kann man am besten lesen und dann bleibt das hier einheitlich.
Wenn jeder seite Lieblingsfarbe als Schriftfarbe nehmen würde, könnte man meinen, wir seien hier im Kindergarten.

Grüße, Matze

[ryLIX]

Und ein TEdit ist VCL *duck&weg*