| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Общие вопросы > Архивирование. |
| Автор: Dimannn 14.4.2005, 09:50 |
| Мне адо заархивировать данные. Формат такай: Type Symb = ^Char; Var Now= Symb; ...// Работа с Now now:=Pointer(Integer(now)+Sizeof(Char)) // Доступ к следующему символу now:=Pointer(Integer(now)+Sizeof(Char)*n) // Доступ к n-ному символу Подкинтие алгоритмик, если можно. P.S. Разархиватор мне тоже сделать надо. |
| Автор: ~FoX~ 14.4.2005, 09:57 |
| Берем преобразование Хаффмана и модифицируем под твою задачу. |
| Автор: Snowy 14.4.2005, 10:03 |
| Тебе для себя нужно, или для "сдать"? Если для себя, то лучше какой-нить зип прикрутить. Если для "сдать", то самое простое - RLE - алгоритм кодирования повторов. Кроме того немаловажную роль играет тип данных. Это у тебя текст или бинарные данные? Если интересует теория компрессии - загляни в раздел алгоритмов. |