удаление строк в файле

[lg12]

procedure TForm1.Button1Click(Sender: TObject);
var
l:Tstrings;
i,k,z:integer;
begin
l:=tstringlist.Create;
l.loadfromfile('D:\loko.txt');
for i:=0 to L.Count-1 do
if pos('Россия',L.Strings[i])<>0 then
 begin
   k:=i;// строку определяет верно
   end;
   begin
for i:=k to L.Count-1 do
 begin
l.Delete(0);//удаляем все начиная от строки k
l.SaveToFile('D:\loko1.txt');
end;
l.Free;
end;
end;
end.

запускается только не верно удаляет

[Sazary]

Во-первых, для кода используйте тег CODE ().
Во-вторых, что программа должна делать? Удалять все строки, содержащие "Россия"?
Во-третьих, жуткая путаница с бегинами-эндами. Не удивительно, что не работает.

procedure TForm1.Button1Click(Sender: TObject);
var l:Tstrings;
i,k,z:integer;
begin
l:=tstringlist.Create;
l.loadfromfile('D:\loko.txt);
i := 0;
while i<L.Count do
 begin
 if pos('Россия',L.Strings[i])<>0 then
  begin
  L.Delete(i);
  dec(i);
  end;
 inc(i);
 end;

l.SaveToFile('D:\loko1.txt');

l.Free;
end;

[lg12]

программа должна удалять все строки после строки с текстом россия.
например такой файл:
дорога
дорога
Россия
привет
привет.
должно остаться
привет
привет.

[puporev]

Уже которую тему создаете, написал Вам кучу вариантов, все равно не понимаете суть работы со строками и файлами. Надо просто сесть, хорошо подумать, что Вы хотите и все нормально написать.

[Sazary]

Сообщение от lg12

программа должна удалять все строки после строки с текстом россия.
например такой файл:
дорога
дорога
Россия
привет
привет.

должно остаться
привет
привет.

Должно удаляться все, что после "России", а в вашем примере получается, что все, что до.

procedure TForm1.Button1Click(Sender: TObject);
var l:Tstrings;
i,k,z:integer;
begin
l:=tstringlist.Create;
l.loadfromfile('D:\loko.txt');
i := 0;
while i<L.Count do
 begin
 if pos('Россия',L.Strings[i])<>0 then
  begin
  for k:=i to L.Count-1 do
   L.Delete(i);
  break;
  end;
 inc(i);
 end;

l.SaveToFile('D:\loko1.txt);

l.Free;
end;

[lg12]

а код то рабочий. Просто нужно было изменить

l.Delete(0);

на

l.Delete(k);

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

[Sazary]

Сообщение от lg12

а код то рабочий.

Да уж где-же он рабочий-то?

procedure TForm1.Button1Click(Sender: TObject);
var
l:Tstrings;
i,k,z:integer;
begin
l:=tstringlist.Create;
l.loadfromfile('D:\loko.txt');
for i:=0 to L.Count-1 do
 if pos('Россия',L.Strings[i])<>0 then
  begin
  k:=i;// строку определяет верно
  end;
  begin   // что за begin и откуда взялся - непонятно
  for i:=k to L.Count-1 do
   begin
   l.Delete(0);
   l.SaveToFile('D:\loko1.txt');  // сохраняете список в файл в цикле!
   end;
  l.Free;  // уничтожаете список, а цикл продолжает работать
  end;
end;