| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Igit ©   (2004-07-04 21:52:00) 

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

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 оставить, а так, как делаю я - очень долго

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

---

Igit   (2004-07-04 22:38:00) [1]

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

---

Mim1   (2004-07-04 22:30:00) [2]

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

---

Mim1   (2004-07-04 22:29:00) [3]

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;

---

Igit   (2004-07-04 22:17:00) [4]

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

---

Mim1   (2004-07-04 21:59:00) [5]

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

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

> Igit   (04.07.04 21:52)

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

---

GuAV   (2004-07-04 21:55:00) [6]

> Обрезать

По англиски Truncate

---

Наверх