|
|
|
Регистрация Восстановить пароль |
|||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
05.11.2012, 17:29
|
#1 |
|
Пользователь
Регистрация: 10.08.2012
Сообщений: 84
|
Сжатие строки
И ещё один вопрос
Как сжать строку? Хоть каким-нибудь образом? Проблема в том, что строка может содержать все символы, от #0 до #255. Все строки, опять же, длиной 48 символов. |
|
|
|
05.11.2012, 17:55
|
#2 |
|
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
вообще-то, вопрос интересный..
Но непонятно, почему Вы не пробовали гуглить, например... Да и зачем Вам сжимать строку - неясно.. Ну так, навскидку, возмите алгоритм сжатия LZW |
|
|
|
|
05.11.2012, 17:57
|
#3 |
|
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Сжать до чего?
I'm learning to live...
|
|
|
|
|
05.11.2012, 18:06
|
#4 |
|
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Не, ну сжать набор строк куда не шло. Но поскольку у вас по сути двоичные данные, то они достаточно плохо сжатию поддаются. А уж 48-байтная строка после сжатия скорее длиннее станет
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
|
|
|
|
05.11.2012, 18:12
|
#5 |
|
Пользователь
Регистрация: 10.08.2012
Сообщений: 84
|
Сжать до чего? Уменьшить размер
Тут возникла другая проблема. При записи в файл данные искажаются. Массив строк поочерёдно записываю в файл (for i:=1 to 4800 do writeln(f,st[i]) и также считываю (for i:=1 to 4800 do readln(f,st[i]). Данные до и после не сходятся. тут уже и сжатие не поможет Последний раз редактировалось DelhiProgramer; 05.11.2012 в 18:15. |
|
|
|
|
05.11.2012, 18:39
|
#6 |
|
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Стесняюсь спросить а чего TStringList не используешь?
I'm learning to live...
|
|
|
|
|
05.11.2012, 19:23
|
#7 |
|
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
тс, может читать как бинарные данные просто?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
|
|
|
|
06.11.2012, 10:21
|
#8 |
|
Пользователь
Регистрация: 10.08.2012
Сообщений: 84
|
Со StringList-ом похоже та же ерунда
Видимо, не получается записывать нулевые символы (#0). А может там случайно где-нибудь выходит комбинация #13#10 и тогда он делает новую строку |
|
|
|
|
06.11.2012, 10:48
|
#9 | |
|
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
ОМГ.
Цитата:
для всего остального есть такая "волшебная" штука - TFileStream. Он работает с бинарным потоком, ему глубоко всё равно, что у Вас там внутри - нулевые байты, не нулевые, переводы строки, табуляции, символы забоя и т.д. и т.п. Используйте его для записи/чтения своих файлов! p.s. тема скатывается в явный оффтоп! Запись/чтение файла явно никакого отношения не имеют к сжатию строки! |
|
|
|
|
|
06.11.2012, 11:16
|
#10 | |
|
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
На всякий случай скажу что в DXE есть хорошая библиотечка по сжатию - zLib в стандартной поставке.
I'm learning to live...
|
|
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Сжатие изображений | brain22 | Мультимедиа в Delphi | 1 | 06.06.2012 20:25 |
| сжатие строки(написать cgi скрипт) | marianna14 | Помощь студентам | 0 | 27.03.2011 20:25 |
| Описать функцию CompressStr(S) строкового типа,выполняющую сжатие строки S | Allen Iverson | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 23.04.2009 01:07 |
| Сжатие битмапа | Rapid | Мультимедиа в Delphi | 7 | 08.12.2007 16:38 |
| Проверка на сжатие | vitalik007 | Общие вопросы Delphi | 3 | 20.08.2007 10:53 |
