Mega Code Archive
Devx - bul ve değiştir
<![CDATA[
********************************************************
********************************************************
*** 'ARKADAŞLAR LÜTFEN KODBANK"TAN YARDIM İSTEMEYİN' ***
************* 'FORUMLARDAN YARDIM İSTEYİN' *************
********************************************************
********************************************************
function SearchAndReplace
(sSrc, sLookFor, sReplaceWith : string) : string;
var
nPos, nLenLookFor : integer;
begin
nPos := Pos(sLookFor, sSrc) ;
nLenLookFor := Length(sLookFor) ;
while (nPos > 0) do begin
Delete(sSrc, nPos, nLenLookFor) ;
Insert(sReplaceWith, sSrc, nPos) ;
nPos := Pos(sLookFor, sSrc) ;
end;
Result := sSrc;
end;
]]>