Удалить последнюю строку из файла

[Flame_of_Death]

Открываем текстовый файл, читаем построчно в цикле с выполнением определенных задач, как удалить последнюю строку в файле?

[Пепел Феникса]

на Дельфи надо?

[Flame_of_Death]

да, 7 дельфи, и строка должна удалить до выполнения команд цикла

[Пепел Феникса]

var L:TStringList;
    i:integer;
begin
 L:=TStringList.Create;
 L.LoadFromFile('путь к файлу');
 L.Delete(L.Count-1);       {удаление}
 for i:=0 to L.Count-1 do {обработка}
 L.Free;
end;

это полностью мой вариант...а чтоб написать к вашему то покажите то как вы грузите(и куда) файл

[Flame_of_Death]

Немного другой подход, но так же с использованием TStringList:

while not EOF(sib_in) do
begin
readln(sib_in, bufer);
num := num + 1;
tmp := TStringList.Create;
if num > 3 then
  begin
    tmp.text := stringReplace(bufer, ';', #13#10, [rfReplaceAll]);
    //ShowMessage(tmp[7]);
    invert := StrToFloat(tmp[7]) * -1;
    summ := summ + invert;
    //ShowMessage(FloatToStr(summ));
  end;
tmp.free;
end;

[Пепел Феникса]

так у вас изначально нет строк чтоли?(судя по реплейсу)

[Flame_of_Death]

Выходит как то таг, так как в стринг лист выводится не файл, а строка. Но это более грубый метод, если описать задачу более конкретно, то мне нужна помощь вот в этой теме (http://www.programmersforum.ru/showthread.php?t=58259), просто файл идет построчно определенного формата, а последняя строка представляет собой символ, описанный в теме, указанной выше! =)