Tedit überprüfen auf Zahlen

[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 ).