Скачать: CL | DM;

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

← →
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;

---

← →
Mim1 ©   (2004-07-04 22:30) [5]

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c