Editin içinden sadece rakamları seçip almak

[NewMember]

Arkadaşlar diyelimki Edit1 in içinde "a15kl23mn8" yazıyor.Ben burada sadece rakamları nasıl alabilirim.Yani 15238 olarak nasıl alabilirim.Yardım edecek herkese teşekkür ederim.

[Fatih!]

Kod: Tümünü seç

var
i:integer;
begin
for i:=0 to length(Edit1.Text) do
if (Edit1.Text[i] in ['0'..'9']) then
Edit2.Text:=Edit2.Text+Edit1.Text[i];
end;