1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure SaveToFile(const array)
var Bytearray: Array of Byte;
begin
  setlength(Bytearray, Ceil(length(array)/8));
  for i := 0 to high(array) do
  begin
    if array[i] then
      Bytearray[i div 8] = Bytearray[i div 8] or (1 shl (i mod 8));
  end;
  // Speichere das Bytearray, und die Länge des richtigen Arrays
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:

unit BitVektor;

interface

uses
  SysUtils, Classes;

const
  MAGIC = AnsiString('NBVF');

type
  TBitVektor = class(TObject)
  private
    FCapacity: Integer;
    FData: array of LongWord;
    procedure SetCapacity(const Value: Integer);
    function GetBit(const AIndex: Integer): Boolean;
    procedure SetBit(const AIndex: Integer; const Value: Boolean);
  public
    constructor Create(const InitialCapacity: Integer = 32);
    destructor Destroy; override;
    property Capacity: Integer read FCapacity write SetCapacity;
    property Bit[const AIndex: Integer]: Boolean read GetBit write SetBit;
    procedure Clear;
    procedure WriteToStream(AStream: TStream);
    procedure ReadFromStream(AStream: TStream);
    procedure SaveToFile(const AFileName: String);
    procedure LoadFromFile(const AFileName: String);
  end;

implementation

{ TBitVektor }

procedure TBitVektor.Clear;
  var
    i: Integer;
begin
  for i := 0 to High(FData) do
    FData[i] := 0;
end;

constructor TBitVektor.Create(const InitialCapacity: Integer = 32);
begin
  inherited Create;
  SetCapacity(InitialCapacity); // Speicher für Daten holen
end;

destructor TBitVektor.Destroy;
begin
  FData := NIL; // Speicher freigeben
  inherited;
end;

function TBitVektor.GetBit(const AIndex: Integer): Boolean;
begin
  Result := (FData[AIndex shr 5] and (1 shl (AIndex and 31))) <> 0;
end;

procedure TBitVektor.LoadFromFile(const AFileName: String);
  var
    FS: TFileStream;
begin
  FS := TFileStream.Create(AFileName,fmOpenRead or fmShareDenyWrite);
  try
    ReadFromStream(FS);
  finally
    FS.Free;
  end;
end;

procedure TBitVektor.ReadFromStream(AStream: TStream);
  var
    FileMagic: AnsiString;
    NewCapacity: Integer;
begin
  SetLength(FileMagic,4);
  AStream.Read(PAnsiChar(FileMagic)^,4);
  if (FileMagic = MAGIC) then begin
    AStream.Read(NewCapacity,4);
    SetCapacity(NewCapacity);
    AStream.Read(FData[0],Length(FData)*4);
  end
  else
    raise Exception.Create('Format-Fehler!');
end;

procedure TBitVektor.SaveToFile(const AFileName: String);
  var
    FS: TFileStream;
begin
  FS := TFileStream.Create(AFileName,fmCreate);
  try
    WriteToStream(FS);
  finally
    FS.Free;
  end;
end;

procedure TBitVektor.SetBit(const AIndex: Integer; const Value: Boolean);
begin
  if Value then
    FData[AIndex shr 5] := FData[AIndex shr 5] or  (1 shl (AIndex and 31))
  else
    FData[AIndex shr 5] := FData[AIndex shr 5] and NOT (1 shl (AIndex and 31));
end;

procedure TBitVektor.SetCapacity(const Value: Integer);
begin
  if (Value > 0) then begin
    FCapacity := Value;
    SetLength(FData,((FCapacity +31) shr 5));
  end
  else
    raise Exception.Create('TBitVektor.Capacity muss >0 sein!');
end;

procedure TBitVektor.WriteToStream(AStream: TStream);
begin
  AStream.Write('NBVF',4);
  AStream.Write(FCapacity,4);
  AStream.Write(FData[0],Length(FData)*4);
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

var
  Form1: TForm1;
  b: Array[1..25000000] of Boolean;

procedure TForm1.Button2Click(Sender: TObject);
var
  sl: TStringList;
  i: Longint;
begin
  sl:=TStringList.Create;
  sl.LoadFromFile(OpenDialog1.FileName);
  for i := 1 to 20000000 do
  begin
    try
    if sl[0][i]='1' then
    b[i]:=true
    else
    b[i]:=false;
    except

    ShowMessage(inttostr(i));
    sl.free;
    exit;

    end;
  end;
  sl.Free;

end;					

1:
2:
3:
4:
5:
6:
7:
8:

var
  b: Array[0..25000000] of Boolean;
  FS: TFileStream;

// Stream aufmachen
FS.Write(b[0],Length(b)*SizeOf(Boolean));

FS.Read(b[0],Length(b)*SizeOf(Boolean));