[тимурка]

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

спасибо.

[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" ?

[The Shadow]

Код:

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

[тимурка]

"1" и "2" это символ а не число =)

[The Shadow]

Код:

function DeleteBetween(St, First, Second: String): String;
var
  i, j: Integer;
begin
  Result:=St;
  if (Pos(First, St) = 0) or (Pos(Second, St) = 0) then Exit;
  i:=Pos(First, St);
  j:=Pos(Second, St);
  Delete(Result, i, j - i + 1);
end;