Удаление строки Опции

[Serega]

Здравствуй, народ.
Мне вот что интересно: Как удалить, например, последнюю строку из файла?

[GLuk]

Под строкой в файле понимается текстовая строка, т.е. разделенная следующими байтами: 0Dh,0Ah??
Во-всяком случае, прочитать его в память, а оттуда уже и смотреть. Или читать в буфер, скажем байт 200 с конца файла. А потом обрезать файл до нужного размера...

[Altair]

Вот Вам программа которая удалит любую по номеру строку

Код

procedure DelStrText(name: string; dels: string);
var
f1 : text;
f2 : text;
s : string;
Atr: word;
begin
ASSIGN(f1,name);
ASSIGN(f2,'TEXTFILE.DSF');
REWRITE(f2);
GETFATTR(f1,atr);
SetFAttr(f1,Hidden);
{$I-}
RESET(f1);
while not EOF(f1) do
begin
 readln(f1,s);
 If s<>DelS then writeln(f2,s)
end;
CLOSE(f1);
CLOSE(f2);
erase(f1);
rename(f2,name);
SetFAttr(f2,atr);
{$I+}
If IoResult<>0 then writeln('ERROR: ',IoResult)
end;
end.

после выполнения этой процедуры строка Dels "удалится"
можно изменив эту процедуру сделать так, что бы
она удаляла по номеру!