 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
Удаление компонент в типизированном файле 
| KostyaMAX |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 18.5.2006 Где: Минск Репутация: нет Всего: нет |
Мне нужно удалить последнюю компоненту в типизированном файле, но в Delphi такой процедуры я не нашел(может плохо искал). Подскажите пожалуйста как это можно сделать без удаления файла. Зарание спасибо.
|
|||
|
||||
Загрузка ...
| Dynamic |
|
|||
 Опытный  Профиль Группа: Участник Сообщений: 372 Регистрация: 5.7.2004 Где: Салехард Репутация: 12 Всего: 15 |
Если в конце - уменьшить размер файла на размер удаляемого блока
-------------------- Было бы о чем молчать, а уж что сказать – всегда найдется... |
|||
|
||||
| Guedda |
|
|||
 Подрывник Профиль Группа: Завсегдатай Сообщений: 3137 Регистрация: 27.12.2005 Где: Ростов-на-Дону Репутация: 14 Всего: 78 |
Хм... Если это - типизированный файл, т.е.
То тогда в руки тебе функцию Seek. -------------------- Ll 2 |
|||
|
||||
| drkot |
|
|||
 Ищущий Профиль Группа: Завсегдатай Сообщений: 1042 Регистрация: 5.5.2006 Репутация: 5 Всего: 8 |
Unit
System Syntax
Description In Delphi code, 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. Это сообщение отредактировал(а) drkot - 18.5.2006, 16:41 -------------------- Ошибка не становится истиной по причине широкого распространения, как и Истина не становится Ошибкой из-за того, что никто её не видит. |
|||
|
||||
| KostyaMAX |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 18.5.2006 Где: Минск Репутация: нет Всего: нет |
Dynamic,
А какой процедурой можно уменьшить размер файла? Guedda, Процедура seek только перемещает указатель, но не удаляет!!! |
|||
|
||||
| KostyaMAX |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 18.5.2006 Где: Минск Репутация: нет Всего: нет |
drkot,
Огромное тебе спасибо!!!! все отлично работает! |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0613 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |