[тимурка]

Суть в том чтобы организовать поиск по текстовому документу и если в строке не найдено определенное слово то вся строка удаляется.

спасибо.

[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;

[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;

[тимурка]

не работает. пишет "List index of bonus (4)" че делать?

[The Shadow]

Код:

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

[тимурка]

а как мне потереть все с определенного символа например "1" и до определенного символа например "2" ?