In Edit-Feld nur Zahleneingaben zulassen?

[franksch88]

Kannst mal versuchen bei Edit1.OnChange mal ein Checkalgorythmus zu schreiben, so was ähnliches wie:

Code:

function TForm1.Edit1Change(Sender:TObject);
var b:byte; S:String;
begin
  S:=Edit1.Text;
  for b:=1 to Length(S) do
    if IsNotNumber(S[b]) then S:='';
  Edit1.Text:=S;
end;

Die jeweilige Funktion IsNotNumber kannst du nach deine Regeln herstellen, oder vom KeyPress entziehen.