Speichereffizientes Speichern von Boolean Array's

[Corpsman]

Hallo alle miteinander ,

ich hab hier ein kleines Speicherproblem

also ich habe mir foglende Variable gebaut:

Delphi-Quellcode:

Type

  TBoolArray = Array Of Array Of Boolean;

Var
  MainLetterData: Array[0..25 + 10] Of Array Of TBoolArray;

Wie man sehen kann ist das ein 4 Dim Array bei dem 3 Dims Dynamisch sind.

Nun will ich dieses Monster Speichern und auch wieder Laden können.

Das Problem ist
Normalerweise wäre ich hergegangen und hätte die Dimension gespeichert und dann eben Zeile für Zeile

Das Problem ist aber wenn man Hergeht und ein Boolean Speichert braucht der ja jeder Bool ein Byte

Und dann ist mein Array 8 Mal Größer als eigentlich.

Weis mir nun jemand wie ich mittels Delphi Spezial Operationen das Array so speichern das der immer 8 Boolean zu einem Byte zusammenfasst ?

ACHTUNG !!

Wie man das von Hand macht weis ich, aber das ist mir eigentlich zu auffwendig, es geht hier also um die "Elegante" Lösung.

Mittels 1, 2 Befehlen.

Das man sich die Bytes zusammenshiften kann und das dann speichern kann ist Klar.