Удалить из файла кусок

← →
Strate © (2007-04-16 18:23) [0]

Здравствуйте. Не подскажете как удалить из файла к примеру первые N байт. Кроме перезаписи может что существует?

← →
Amoeba © (2007-04-16 18:33) [1]

Ничего другого, кроме перезаписи в новый файл, не существует.

← →
Riply © (2007-04-16 19:10) [2]

Сейчас меня сравняют с землей за "несение бреда в публичном месте", но рискну спросить:
А если как-нибудь исхитриться и сделать так, чтобы "хвостик" одного из кластеров,
занятых файлом указывал не на следующий кластер, а на "послеследующий" ?

← →
Loginov Dmitry © (2007-04-16 22:45) [3]

> Здравствуйте. Не подскажете как удалить из файла к примеру
> первые N байт. Кроме перезаписи может что существует?

Еще можешь в цикле сместить следующие байты на N байт в начало файла и обрезать файл на N байт.

← →
SlymRO © (2007-04-17 10:37) [4]

Riply © (16.04.07 19:10) [2]
а если N не кратное размеру кластера? не научились еще адресовать полкластера

> Strate © (16.04.07 18:23)

> первые N байт. Кроме перезаписи может что существует?

procedure TForm1.Button1Click(Sender: TObject); var fs1, fs2: TFilestream; fcount: Int64; begin fcount := 5; fs1 := TFileStream.Create("file1.txt", fmOpenWrite or fmShareDenyWrite); fs2 := TFileStream.Create("file1.txt", fmOpenRead or fmShareDenyRead); fs2.Position := fcount; fs1.CopyFrom(fs2, fs2.Size - fcount); fs1.Size := fs1.Size - fcount; fs1.Free; fs2.Free; end;
Но, если есть место на диске, то лучше не рисковать.

--
Regards, LVT.

> [4] SlymRO © (17.04.07 10:37)
>а если N не кратное размеру кластера? не научились еще адресовать полкластера
Разумеется, я подразумевала, что кратно :)
Но ведь там, скорее всего, надо не только изменить адрес,
но и еще что-то, чтобы ничего не испортить :) ?

Удалить из файла кусок Найти похожие ветки