Вниз
Скачать: CL | DM;

Удаление данных из файла.   Найти похожие ветки 

 
Reistlyn ©   (2003-04-01 14:52) [0]

Есть файл данных, в этом файле хранится "лишняя" информация, которую необходимо удалить. Ненужные данные записаны в конце файла. Удаление должно происходить с уменьшением размера файла, т.е. если из файла размером 1024 байта удалить половину данных, то его размер будет 512 байт (размеры файлов абстрактные).
Подскажите как это сделать без использования копирования из файла в файл?

Задача очень похожа на сжатие таблиц DBF или Paradox.

Заранее спасибо.


 
Palladin ©   (2003-04-01 14:58) [1]

файл последовательность данных, ты не можешь вырезать из него кусок... только полный перебор...


 
Anatoly Podgoretsky ©   (2003-04-01 15:06) [2]

Size := СколькоНужноВБайтах;


 
Reistlyn ©   (2003-04-01 15:18) [3]

2 Anatoly Podgoretsky ©

> Size := СколькоНужноВБайтах;

А SIZE это из чего взялось? Можно немного более подробный ответ?



 
Palladin ©   (2003-04-01 15:28) [4]


> Reistlyn © (01.04.03 15:18)

Anatoly Podgoretsky
имел ввиду TFileStream наверно...


 
Anatoly Podgoretsky ©   (2003-04-01 15:38) [5]

Из TFileStream вестимо, или ты хочешь другой компонент использовать?
Задача ни грамма не похоже на сжатие страниц, там делается путем создания нового файла


 
NDeu ©   (2003-04-01 15:53) [6]

procedure Truncate(var F);

Description

Call Truncate to cause the current file position to become end-of-file (Eof(F) is True).

F is a file variable of any type except a text file. Truncate does not work on text files. F must be open.


 
Reistlyn ©   (2003-04-01 15:57) [7]

ОГРОМНЕЙШЕЕ СПАСИБО !!!! Все заработало, все просто великолепно.

Езе раз спасибо.



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

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



Память: 0.46 MB
Время: 0.012 c
4-44521
TankMan
2003-02-12 11:26
2003.04.14
А как зная хендл окна, узнать его параметры?


3-44080
Виталий Панасенко
2003-03-26 12:26
2003.04.14
LocalSQL


14-44443
Xitrik
2003-03-29 13:27
2003.04.14
Как из длины волны видимого света получить значение цвета в RGB?


4-44511
{{{KOT}}}
2003-02-15 11:37
2003.04.14
Как мне узнат


11-44085
michel
2002-06-28 13:08
2003.04.14
XXXToStr и наоборот в KOL




   Наверх