Tedit überprüfen auf Zahlen

[eisbar]

Wie kann man die Eingabe von Buchstaben in Tedit sperren bzw. überprüfen ob in dem Edit feld nur Zahlen stehen? Kann mir da jemand helsen?

[sniper_w]

Delphi-Quellcode:

procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  // allow only numbers and backspace
  if not( Key in ['0'..'9', #8] ) then
    Key := #0;
end;

Die Such hätte dich auch weiter gebracht ( vermutlich schneller ;) ).

[DerDan]

Zitat:

Zitat von sniper_w

Delphi-Quellcode:

procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  // allow only numbers and backspace
  if not( Key in ['0'..'9', #8] ) then
    Key := #0;
end;

Die Such hätte dich auch weiter gebracht ( vermutlich schneller ;) ).

die obige Fn verhindert leider nicht, das der Benutzer etwas via Clipboard reinkopiert

mfg DerDan

[sniper_w]

Delphi-Quellcode:

procedure TForm1.EditOnChange(Sender: TObject);
var 
  Key:Char;
  i:integer;
  s:string;
begin
  // allow only numbers and backspace
  s := '';
  for i:=1 to Length( TEdit(Sender).Text ) do
  begin
    Key := TEdit(Sender).Text[i];
    if not( Key in ['0'..'9', #8] ) then
      Key := #0
      else
      s := s + Key;
  end;
  TEdit(Sender).Text := s;
end;