Удаление данных из файла.

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

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

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

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