Edit Text die richtigen Zeichen

[Davidlocke13]

Morgen;

Ich möchte meinem Edit sagen, dass das erste Zeichen bei der Eingabe kein Lehrzeichen sein darf.
Außerdem möchte ich in einem 2. Edit nur Zahlen von 00 bis 24 eigenen können.

Wie stellte ich das an ?

[DeddyH]

Spontan würde ich sagen: im OnChange des Edits den Text prüfen und ggf. reagieren.

[Der schöne Günther]

Warum überhaupt ein Edit für den zweiten Fall? Da gibt es doch auch Dinge wie ein TSpinEdit, extra für Zahlen (auch mit Ober/Untergrenze)...

[Davidlocke13]

Wie bekomme ich das beim SpinEdit hin das anstatt 2 da 02 steht ?

[EarlyBird]

ein Ansatz um nur Zahlen zuzulassen:

Delphi-Quellcode:

procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in ['0', '1', '2', '3','4','5','6','7','8','9', #8]) then
   Key := #0
 else
   if not (Key = #8) then
    if (StrToInt(edt1.Text + Key) > 24) or (Length(edt1.Text + Key) > 2) then
      Key := #0
end;

Dann halt noch prüfen was bereits eingegeben wurde.

Mit dem ersten Zeichen kann man es ähnlich lösen

[Der schöne Günther]

Du kannst Zahlen bsp. so formatieren, dass sie immer zweistellig sind:

SpinEdit1.Text := FormatFloat('000',SpinEdit1.Value);