text ayrıştırma(rakam ve harf)

[dabaddah]

merhaba arkadaşlar;
bir text içindeki rakamları ve harfleri ayrıştırmak için ne yapmak gerekir;


yani harflerden ve rakamlardan oluşan bir text var ben burdan harfleri atıp sadece rakamları almak istiyorum.

herkese iyi çalışmalar

[SimaWB]

Kod: Tümünü seç

function SadeceRakamlar(s: string): string;
var
  i: integer;
  rsp: string;
begin
  Result := s;
  if Length(s) < 1 then Exit;
  rsp := '';
  for i := 1 to Length(s) do
  begin
    if s[i] in ['0'..'9'] then
      rsp := rsp + s[i];
  end;
  Result := rsp;
end;

[dabaddah]

sevgili simwb kardeşim ilgin ve cevabın için çok teşekkür ederim