Tedit überprüfen auf Zahlen

[DerDan]

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