Zeichen überprüfen

Delonnor · Hält's aus hier Beiträge: 1

Hallo!

Folgendes Problem...Ich hab ein Edit Feld, welches mir per StrToInt nur Zahlen liefern soll. Das ganze klappt, weil ich durch die OnKeyPress Funktion nur 0-9 und den Backspace zulasse.
Nun würde ich aber gerne die Eingabe begrenzen, so das ich nachdem ich z.B. eine '1' eingegeben habe nur noch die Zahlen 1 bis 5 zulassen will. Das Ganze natürlich zur Laufzeit, also zu OnChange oder OnKeyPress.

Hat da jemand einen Vorschlag für mich?

Danke, Delo

Moderiert von Christian S.: Topic aus Neue Einträge / Hinweise / etc. verschoben am Di 28.02.2006 um 17:57

uwewo · Beiträge: 154

Das wäre eine Möglichkeit

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if pos('1',Edit1.Text) > 0 then
  begin
    if key in ['1'..'5'] then key := key
    else key := #0;
    exit;
  end
  else if key in ['0'..'9'] then key := key
end;

Uwe

Moderiert von Christian S.: Delphi-Tags hinzugefügt

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme