Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.14;
Скачать: 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 вся ветка

Текущий архив: 2003.04.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.015 c
14-44352
Uristemova Gulden
2003-03-31 10:27
2003.04.14
программы на Delphi


14-44458
Ihor Osov'yak
2003-03-30 14:48
2003.04.14
Странные события в деструкторе...


14-44459
race1
2003-03-30 08:14
2003.04.14
qcad


9-43976
Phantom 13
2002-11-15 07:54
2003.04.14
Вопрос сохранения ресурсов...


14-44397
SV
2003-03-25 21:03
2003.04.14
NET Project