Vielleicht so?!? Sonst habe ich Dich nicht richtig verstanden...
Delphi-Quellcode:
[...]
edit2.Text := '';
for i := 1 to length(edit1.text) do begin
if (edit1.Text[i] in ['0'..'9', '.']) Then Edit2.Text := Edit2.Text + edit1.text[i];
end;
[...]
... dabei werden alle Zeichen außer 0-9 und der Punkt herausgefiltert. Zumindest sollte dies die Funktion machen
SCRaT