Delphi Fonksiyonu: say

Gönderilen stringte kaç tane aranan değer bulunduğunu sayan fonksiyon.

function say(deger : string; aranan: string='|' ) : integer;
var
  tut:string;
  i: integer;
begin
  tut:=deger;
  i:=0;
  while pos(aranan, tut) > 0 do
  begin
    delete(tut, pos(aranan, tut), length(aranan));
    inc(i);
  end;
  result:=i;
end;

13.11.2008 10:29:25

Yorumlar

Bu yazıya henüz yorum yapılmamış.

Yazı hakkında yorum yapmak için, buraya tıklayın.

Kategoriler :

Arşiv :

Etiketler :

Bağlantılar :