Tedit überprüfen auf Zahlen

[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;