| string içinde değişiklik yapma
Kod: Kodu kopyalamak için üzerine çift tıklayın! function TRamazan.degistir(kelime,aranan,yeni:String):String;
var
sonuc:byte;
veri:string;
begin
veri:=kelime;
sonuc:=pos(aranan,veri);
while sonuc<>0 do
begin
delete(veri,sonuc,1);
insert(yeni,veri,sonuc);
sonuc:=pos(aranan,veri);
end;
Result:=veri;
end;
__________________ SusKun ve Sessiz Mürekkep...
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
|