Удаление строки из файла

[Человек_Борща]

саша40, У меня столько текст. информации каждые 2 минуты записывается и разбивается по 4 гб.

[prog32bit]

либо я тупой, либо лыжи не едут.
что-то не получается даже не изменяя ничего. кракозябры сохраняет

var fss,fssl:TFileStream;
begin
fss:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead,fmShareExclusive);
fssl:=TFileStream.Create(OpenDialog1.FileName+'.tmp',fmCreate,fmShareExclusive);
fssl.Write(fss,fss.Size);
fssl.Free;
fss.Free;

[min@y™]

fssl.Write(fss,fss.Size); // Harry Potter detected!!! :)

Пишешь в файл значение указателя (4 байта) плюс следующий в памяти за ним мусор (Size - 4 байт). Красота!
А покурить маны как всегда влом, погонять в танчики важнее!

[prog32bit]

спасибо. теперь остается 1 вопрос: как узнать позицию символа #13 (переноса строки) в потоке.
пока код таков

var fss,fssl:TFileStream;
begin
fss:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead,fmShareExclusive);
fssl:=TFileStream.Create(OpenDialog1.FileName+'.tmp',fmCreate,fmShareExclusive);
fss.Position:=4; //к примеру
fssl.CopyFrom(fss,fss.Size-fss.Position);
fssl.Free;
fss.Free;

[min@y™]

как узнать позицию символа #13 (переноса строки) в потоке.

Найти байт в потоке - эт чо, проблема?

[prog32bit]

подскажите, пожалуйста, в чем я не прав (ругается следующим образом: Stream Read Error)

var fss,fssl:TFileStream; s:string;
begin
fss:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead,fmShareExclusive);
fssl:=TFileStream.Create(OpenDialog1.FileName+'.tmp',fmCreate,fmShareExclusive);
fss.Position:=0;
while true do
begin
  fss.Position:=fss.Position+1;
  if fss.Position>fss.Size then begin fss.Position:=fss.Size; exit; end;
  SetLength(s,fss.Position);
  fss.ReadBuffer(s[1],fss.Position);
  if pos(chr($0D),s)>0 then exit;
end;
fssl.CopyFrom(fss,fss.Size-fss.Position);
fssl.Free;
fss.Free;
end;

[min@y™]

Ну, в отладчике прогони, сразу поймёшь, в чём дело и где ошибка.

[northener]

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

Думаю, что 4gb, это запас прочности. Явно не бинар. Если в бинаре тупо снести первую строку, то он умрёт, будь то программа, или медиафайл.

Сначала умрёт программист-троешник при попытке найти первую строку в "программе или медиафайле".

[northener]

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

Доброго времени суток. Интересует вопрос по следующей теме:
Как удалить первую строку из файла. При этом файл может быть любого размера (например, 4 ГБ). А 4 ГБ подгружать в память не айс.

Хм. Вот уже прошло более суток с момента опубликования сего вопроса. А никто так и не озаботился спросить автора - А Нафига Это Нужно?
Может неозвученную автором задачу можно решить гораздо проще и элегантнее?