String içinden rakamları seçmek

[NewMember]

Merhaba;

Editin içeriğinde şu var diyelim.

a1sg23d87s7
ben bunu 123877 şeklinde nasıl alabilirim.Aslında forumda aramada yaptım ama bulamadım.teşekkürler...

[Ertugrul]

Kod: Tümünü seç

var i:integer;  s,sayilar:string;
begin
s:=edit1.text;
for i:=0 to length(s)-1
if s[i] in ['0'..'9'] then
sayilar:=sayilar+s[i];
end;

[NewMember]

@ertuğrul teşekkürler....