Delphi Fonksiyonu: degistir

Bir string'in içindeki ifadeyi, başka bir string ifade ile değiştiren fonksiyon.

function degistir(cumle:string; aranan:string; degistirilecek:string):string;
var
  tut:integer;
begin
  while Pos(aranan,cumle)>0 do
  begin
    tut:=Pos(aranan,cumle);
    delete(cumle,tut,length(aranan));
    insert(degistirilecek,cumle,tut);
  end;
  result:=cumle;
end;

31.10.2010 20:15:24


Etiketler: delphi fonksiyonları, pascal

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 :