[Zylex]

Сообщение от The Shadow

Код:

var
F: TStringList;
i: Integer;
begin
F:=TStringList.Create;
F.LoadFromFile('1.txt');
for i:=0 to F.Count - 1 do
if Pos('слово', F.Strings[i]) > 0 then F.Delete(i);
F.SaveToFile('1.txt');//если надо
F.Free;
end;

В этом случае если слово найдено строка удаляется... Маленькое исправление и дополнение

Код:

var
   F: TStringList;
   i: Integer;
   path:string;
begin
   GetDir(0,path);
   F:=TStringList.Create;
   Label1.Caption:=path;
   F.LoadFromFile(path+'\1.txt');
   for i:=0 to F.Count - 1 do
       if Pos('Слово2', F.Strings[i])= 0 then F.Delete(i);
   F.SaveToFile(path+'\1.txt');
   F.Free;
end;