sadece Rakamları bulma

[DelphiNV]

Merhaba Arkadaşlar;

Bir String İçinde Sadece Rakamları Nasıl Ayıra bilirim..

Örnek:

dasdjjkfjdkj34k3j4k3mömöm434m37767m67m6b7b67jh6jh767 6mmn76n

gibi bir string içinden Sadece rakamları alarak bir edit'e atamak istiyorum...



saygılar

[huseyinkucuk]

Sanırım şu kod işini görür:

Kod: Tümünü seç

function RakamlariDondur(Metin:String):String;
var
  Rakamlar:String;
  i:integer;
begin
  Rakamlar:='';
  for i:=1 to length(Metin) do
  begin
    if Metin[i] in ['0'..'9'] then
      Rakamlar:=Rakamlar+Metin[i];
  end;
  Result:=Rakamlar;
end;

[DelphiNV]

Teşekkür Ederim.

İşimi gördü....