Сделала вот такой код. Он удаляет указанное слово в Edit из текстового файла.
Теперь вопрос: Как сделать что бы одновременно можно было удалять несколько слов. То есть указываю в edit1 - слово и edit2 - слово и программа одновременно удаляет два слова. Заранее благодарна...
var f1,f2:TextFile; s:string; p:Word;
begin
if OpenDialog1.Execute then begin
AssignFile(f1,OpenDialog1.FileName);
AssignFile(f2,ExtractFileDir(OpenDialog1.FileName)+'\out.txt');
{$i-}
Reset(f1); Rewrite(f2);
while not Eof(f1) do begin
Readln(f1,s);
repeat
p:=Pos(edit1.Text,s);
if p<>0 then Delete(s,p,p+length(edit1.Text)-1);
until p=0;
Writeln(f2,s);
end;
CloseFile(f1);
CloseFile(f2);
end;
end;