|
|
Функция
замены всех подстрок в строке
Ищет
в s все строки s_find и заменяет их на s_replace
Примечание: если s_find содержится в s_replace, то функция выдает пустую
строку (чтобы функция не зациклилась)
function ReplaceStrAll(s,s_find,s_replace:string):string;
var sss,sss1:string;
begin
if pos(s_find,s_replace)>0 then
result:=''
else
begin
sss1:=s;
sss:=ReplaceStr(sss1,s_find,s_replace);
while sss1<>sss do
begin
sss1:=sss;
sss:=ReplaceStr(sss1,s_find,s_replace);
end;
result:=sss;
end;
end;
|
|