|
|
Функция
замены подстроки в строке
Ищет
в s строку s_find и заменяет ее на s_replace
function ReplaceStr(s,s_find,s_replace:string):string;
begin
if pos(s_find,s)>0 then
result:=copy(s,1,pos(s_find,s)-1)+s_replace+copy(s,pos(s_find,s)+
length(s_find),length(s)-(pos(s_find,s)+length(s_find))+1)
else
result:=s;
end;
|
|