VPF::Архивирование. - Форум программистов

Dimannn

Дата 14.4.2005, 09:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 318
Регистрация: 14.4.2005
Где: Владимир

Репутация: нет
Всего: 1

Мне адо заархивировать данные. Формат такай:
Type Symb = ^Char;
Var Now= Symb;

...// Работа с Now

now:=Pointer(Integer(now)+Sizeof(Char)) // Доступ к следующему символу

now:=Pointer(Integer(now)+Sizeof(Char)*n) // Доступ к n-ному символу

Подкинтие алгоритмик, если можно.

P.S. Разархиватор мне тоже сделать надо.

--------------------

Хотите быстро и без проблем опубликовать вашу программу в сети за 5 минут?
Тогда потратьте пару минут чтобы посмотреть, что предлагает OpenProject.org.ru

~FoX~

Дата 14.4.2005, 09:57 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Берем преобразование Хаффмана и модифицируем под твою задачу.

--------------------

…множественность никогда не следует полагать без необходимости…

Snowy

Дата 14.4.2005, 10:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Тебе для себя нужно, или для "сдать"?
Если для себя, то лучше какой-нить зип прикрутить.
Если для "сдать", то самое простое - RLE - алгоритм кодирования повторов.
Кроме того немаловажную роль играет тип данных.
Это у тебя текст или бинарные данные?
Если интересует теория компрессии - загляни в раздел алгоритмов.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »