Das Packen von Dateien

[Dannyboy]

So Mädels,

nachdem ich das Einlesen von Dateien unterschiedlicher Dateitypen (.zip, .exe, .bmp, etc.)
in eine einzige Datei (.Directory) getan habe und diese auch erfolgreich wieder seperat
extrahieren konnte, interessiert mich nun der nächste Schritt meines Vorhabens:
Das Packen (Verkleinern) von Informationen in einer Datei!

Mal grundsätzlich kann man aus "ZZZZZ" ganz einfach "5Z" (fünf mal 'Z') machen und somit
immer die Anzahl der aufeinanderfolgenden Bytes zählen. So könnte man eine Datei mit fort -
laufend gleichbleibenden Bytes über 95% packen (z.B. manche Bitmpaps).

Im Grunde genommen würde eine gepackte Datei dann so aufgebaut sein:

Delphi-Quellcode:

type TDatei = record
    anzahl_an_gleichen_bytes : byte; // hoechstens 255 !
    folgendes_byte           : byte; // folgendes byte, nachdem Anzahl angegeben wurde
end;

Das mag ja bei einem relativ eintönigen Bitmap funktionieren, aber die Realität ist leider nicht
immer so schön. Was, wenn man eine Datei hat, die ganz verschiedene Bytes hat, z.B. "aTqöpß"?
Dann würde man mit der obigen Methode die Datei um 100% vergrößern: "1a, 1T, 1q, 1ö, 1p, 1ß"

Kann mir jemand einen Algorithmus (Namen) zeigen, mit dem ich Dateien mit unterschiedlichen Bytes packen kann?

Thanx.

DANNYBOY