edit soll nur zahle annehmen

[robinWie]

man könnte auch vor abruf des Textes aus dem Edit alle Buchstaben entfernen. Ist aber nicht sehr elegant

Delphi-Quellcode:

var
 S: string;
 i: integer;
begin
S := Edit1.Text;
for i := 1 to length(Edit1.Text) do
 if not (S[i]  = ['0'..'9'] then
   Delete(S, 1, 1);
Edit1.Text := S;

So müsste das irgendwie gehen. Habs aber nicht getestet