Простое сжатие текста

[Arigato]

Сообщение от Kronos913

Чтобы передать по ссылке, без дублирования

PChar это и так ссылка:

PChar               = ^Char;

[Vapaamies]

Сообщение от Kronos913

Потому что вообще желательно как-то сделать так, чтобы итоговое сжатие не вышло меньше места, которое будет потрачено на архиватор=))

С этим лучше к доктору. Он диагноз поставит, таблеточки пропишет, отож. Я редко пишу такое, обычно стараюсь в конструктив, но тут явно клинический случай.

Если цель — поучиться алгоритмам сжатия по словарю — вначале изучается теория, потом пишутся некие тесты-лабы. Цели оптимизации кода к сжатию не ставится. Вообще, сжатие данных — одна из тематик, в которую без серьезной теоретической постановки лучше не соваться.

Если же цель — реализовать нестандартное сжатие «как в играх» — должна быть некая внешняя постановка, почему так делается. Обычно — затруднить модификацию ресурсов игры. Цели оптимизации кода к сжатию опять же не ставится.

Так что вы определитесь: или крестик снимите, или трусы наденьте. В текущем же виде тема будет лишь поводом для насмешек. Похожая тема с неверной постановкой задачи (читать с начала, если непонятно).

[NetSpace]

ну, есть мысля.
если тексты написаны по-русски, то это коды кириллических символов от 128 до 255 без латиницы от "А" до "я".
а попробуй сделать замены кодов: новый_код = 255 - (код_символа). получатся коды символы в диапазоне от 127 до 0. а это уже проще шифровать - меньше места. и тут используй как раз те самые коды непечатаемых символов...
а при дешифровке будешь опять же вычитать из 255 код и получишь обратно свой текст

[digitalis]

Так ему же не дешифровка, а сжатие занадобилось - а как этим вычитанием сожмёшь? Вместо 8 бит 7? Невелико приобретение, а мороки...

[Arigato]

Можно еще некоторые буквы со схожим начертанием объединить, привязав их к одному коду. К примеру, русская буква "А" и английская "A" выглядят одинаково. Вот уже освободили один код

[firemen]

uses
  System.ZLib;

{$R *.dfm}

function CompressText(const Text: string): TBytes;
begin
  try
    result:= ZCompressStr(Text);
  finally

  end;
end;

function DecompressText(const CompressedData: TBytes): string;
begin
  result:= ZDecompressStr(CompressedData);
end;

procedure TForm12.Button1Click(Sender: TObject);

var
  Text: string;
  CompressedData: TBytes;
  DecompressedText: string;
begin

  Text := '1234567890123456789012345678901234567890123456789012345678901234567890';

  CompressedData := CompressText(Text);

  edit1.Text:= TEncoding.Default.GetString(CompressedData);

  DecompressedText := DecompressText(CompressedData);

  edit2.Text:= DecompressedText;


end;