Поиск в файле
Всем привет. Помогите начинающему Делфиру. Я тут пытался осуществить поиск слов в файле и заменить их на другое (типа Replace All) но у меня нечего не получилось. Пожалуйста дайте пример, функцию как это можно сделать. Заранее спасибо.
function replace(str,s1,s2:string;casesensitive:boolean):string;
var
i:Int64;
s,t:string;
begin
s:='';
t:=str;
repeat
if casesensitive then i:=pos(s1,t) else i:=pos(ansilowercase(s1),ansilowercase(t));
if i>0 then
begin
s:=s+System.Copy(t,1,i-1)+s2;
t:=System.Copy(t,i+Length(s1),MaxInt);
end
else s:=s+t;
until i<=0;
result:=s;
end;
var
i:Int64;
s,t:string;
begin
s:='';
t:=str;
repeat
if casesensitive then i:=pos(s1,t) else i:=pos(ansilowercase(s1),ansilowercase(t));
if i>0 then
begin
s:=s+System.Copy(t,1,i-1)+s2;
t:=System.Copy(t,i+Length(s1),MaxInt);
end
else s:=s+t;
until i<=0;
result:=s;
end;