Обрезать файл в начале

← →
Igit (2004-07-04 21:52) [0]

Здраствуйте, понадобилось мне... как бы выразится по конкретней... вобщем, делаю так:

seek(f,inc_filesize);
while not EoF(f) do
begin
read(f,b);
write(f1,b);
end;
close(f);
close(f1);
delete(f);
rename(f1, f); // в общем мне надо только конец (5 Mb) f оставить, а так, как делаю я - очень долго

Может по-другому можно?

← →
GuAV © (2004-07-04 21:55) [1]

> Обрезать

По англиски Truncate

← →
Mim1 © (2004-07-04 21:59) [2]

> [1] GuAV © (04.07.04 21:55)
>
> > Обрезать
>
> По англиски Truncate

Ему надо отрезать только конец. То есть удалить начало файла.
Читайте вопрос сниматеьнее.

> Igit (04.07.04 21:52)

А как а обьявлен файл? file of byte?

← →
Igit (2004-07-04 22:17) [3]

Да, битовый файл

← →
Mim1 © (2004-07-04 22:29) [4]

var fs1,fs2:tfilestream; const 5mb = 1024*1024*5; begin fs1 := tfilestream.create("file1",fmopenread); try fs2 := tfilestream.create("file2",fmopenwrite); try if fs1.size > 5mb then fs1.seek(5mb,sofromend); fs2.copyfrom(fs1,fs1.size - position); finally fs2.free; end; finally fs1.free; end; // rename(...); // MoveFile // DeleteFile end;

fs2.copyfrom(fs1,fs1.size - fs1.position);

← →
Igit (2004-07-04 22:38) [6]

Спасибо большое, завтра попробую, и если что не пойму - отпишу

Обрезать файл в начале Найти похожие ветки