Усечение файла

← →
Separator © (2003-01-09 08:25) [0]

Как можно удалить n-ое количетво байт в начале файла?

← →
MBo © (2003-01-09 08:31) [1]

скопировать нужную часть в новый файл

← →
Separator © (2003-01-09 09:15) [2]

А по другому никак нельзя?

← →
Reindeer Moss Eater (2003-01-09 09:16) [3]

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

← →
Separator © (2003-01-09 09:17) [4]

Ну ладно, тупой вопрос похоже :)

← →
KA_ (2003-01-09 09:19) [5]

Попробуй с помощью TFileStream - открой файл и установи свойство Size.

← →
KA_ (2003-01-09 09:21) [6]

Sorry! Не въехал в вопрос :)

← →
Reindeer Moss Eater (2003-01-09 09:21) [7]

И что должно получиться?

← →
ValeraVV © (2003-01-09 11:36) [8]

Блоками сместить данные в начало файла и обрезать, все.

The SetFilePointer function moves the file pointer of an open file.
DWORD SetFilePointer(
HANDLE hFile, // handle of file
LONG lDistanceToMove, // number of bytes to move file pointer
PLONG lpDistanceToMoveHigh, // address of high-order word of distance to move
DWORD dwMoveMethod // how to move
);

The SetEndOfFile function moves the end-of-file (EOF) position for the specified file to the current position of the file pointer.

BOOL SetEndOfFile(

HANDLE hFile // handle of file whose EOF is to be set
);

Сорри, невнимательно прочитал вопрос :-/

procedure CutFirst(FileName:String; DelCount :Integer); var F: File; P :^Byte; BlockSize, L :Integer; begin AssignFile(F,FileName); Reset(F,1); L:=FileSize(F); BlockSize:=L-DelCount; //--- перемещаем данные из позиции после вырезаемых байт в начало GetMem(P,BlockSize); Seek(F, DelCount); BlockRead(F,P^,BlockSize); Seek(F, 0); BlockWrite(F,P^,BlockSize); //--- FreeMem(P,L); Seek(F, L-DelCount); Truncate(F); CloseFile(F); end;
Подходит для небольших файлов (которые поместятся в ОЗУ). Для больших нужно просто перемещать данные поблочно (сколько хватает памяти).
у меня на Duron600/160Mb/20Gb(7200rpm) из файла в 17,5Mb вырезала первые 2 байта за 2,7 сек. Чем больше нужно вырезать, тем быстрее сработает.

Усечение файла Найти похожие ветки