Speichereffizientes Speichern von Boolean Array's

[Hawkeye219]

Hallo Corpsman,

neben der von alzaimar vorgestellten Abbildung auf ein eindimensionales Array könntest du auch über die Verwendung von Mengen nachdenken, falls dich die Beschränkungen von Delphi (max. 256 Elemente pro Menge) nicht daran hindern:

Delphi-Quellcode:

type
  TFlag = 0..25 + 10;
var
  Flag  : TFlag;
  Bytes : Integer;
  i, j  : Integer;
  Data  : array of array of array of set of TFlag;
begin
  SetLength (Data, 10, 20, 30);

  Flag := 4;

  // Setzen eines Flags
  Include (Data[0, 0, 0], Flag);

  // Löschen eines Flags
  Exclude (Data[0, 0, 0], Flag);

  // Abfragen eines Flags
  if (Flag in Data[0, 0, 0]) then ;

  with TFileStream.Create('data.bin', fmCreate) do
    try
      Bytes := Length(Data[0, 0]) * SizeOf(Data[0, 0, 0]);

      for i := 0 to High(Data) do
        for j := 0 to High(Data[i]) do
          Write (Data[i, j, 0], Bytes);
    finally
      Free;
    end;
end;

Den Code zum Speichern darfst du nur als einfaches Beispiel verstehen. In der Praxis wirst du die Dimension des Arrays speichern müssen, um die Daten wieder einlesen zu können.

Gruß Hawkeye