Realisierung des Huffman-Algorithmus in Delphi

[neolithos]

Ich Versuch es mal anders zu erklären

Algorithmus:

1. Also du brauchst ein Grund-Alphabet, welches alle Zeichen enthält (z.B. 8 Bit breit)
2. Die Liest das erste Zeichen und schreibst es in den Dest-Strom
3. Liest ein nächstes Byte
4. Prüfe ob die Kombination existiert
NEIN -> 5. a) Füge an die Liste an, als neuen Buchstaben
5. b) Erhöhe gegebenfalls die Bitbreite des Alphabets
5. c) Zerstöre Kombinationssammlung
6. Schreib Bits in Dest-Strom
7. Not EOF dann gehe 3.

Übrigens habe vor ca. 6 Jahren versucht diesen Kombrimierungsalgorithmus umzusetzen. Hat leider damals nicht sollen sein. Berichte wenn du damit Erfolg haben solltest. Theoretisch sollte es funktionieren.