работа с файлом

[lg12]

как можно удалить определенное количество строк с начала файла

[puporev]

Открываем файл, читаем построчно и считаем. Пока не дошли до заданного числа, ничего не делаем. Как только дошли до n+1, записывем строки куда надо.

[lg12]

procedure TForm1.Button1Click(Sender: TObject);
var
l:Tstrings;
i,b:integer;
n:string;
a:array[1..10] of integer;
begin
l:=tstringlist.Create;
l.loadfromfile('D:\loko.txt');
if if pos('Цена звёздной роли',l.Strings[i])<>0 then// находим нужную строчку
begin
memo1.Lines.Add(inttostr(i));
b:=StrToInt(memo1.lines.strings[0]);
label1.caption:=inttostr(b);
for i:=0 to b do
begin
l.Delete(a[i]);//удаляем все строки до нужной
l.SaveToFile('D:\loko.txt');
end;
l.Free;
end;
end.

почемут не работает( подчеркивает предпоследние end

[Вавел из ГМТУ]

Надо перед последним end. дописать ещё один End;

Тобишь в конце должно быть:

...
l.Free;
end;
end;
end.

add: кстати да... и if лишняя тоже присутствует.

[Volt]

if перед pos('Цена звёздной роли',l.Strings[i])<>0 лишнюю удалите

[lg12]

исправил. Теперь вообще вылетает. Поглядите пожалйста. только путь к файлу поменяйте

[Вавел из ГМТУ]

В архиве нету файла .pas......

Ошибка выгорает потомучто переменая i равняется числу типа 10828232 и ему подобному.... И вобще код нерабочий.

[puporev]

Вот на примере первой программы, которую я Вам писал.

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var L:Tstrings;
    i,j,k:integer;
    s,s1:string;
begin
L:=TStringlist.Create;  //создаем список строк
L.LoadFromFile('file1.txt');//заносим в него строки из файла, файл в папке программы
k:=0;
for i:=0 to L.Count-1 do
if pos('Цена звёздной роли',L.Strings[i])<>0 then
 begin
   k:=i; //нашли нужную строку, запомнили ее номер
   break; //дальше не ищем, выходим из цикла
  end;
for i:=k to L.Count-1 do //от этой строки делаем что нам надо
 begin
  s:=L.Strings[i]; k:=0;  //обрабатываем строки
  for j:=1 to length(s) do
  if s[j] in ['А'..'Я'] then
    begin
     k:=j;//запомним индекс
     break;
    end;
   //Удалим начало строки
   delete(s,1,k-1);
   //Сейчас берем участок русского текста до первого знака '<'
   s1:=copy(s,1,pos('<',s)-1);
   Memo1.Lines.Add(s1);//заносим в Мемо1
   Memo1.Lines.SaveToFile('file2.txt');// можно в файл
  end;
L.Clear;
end;

end.