Na dann werd ichs gleich mal umbauen - Gut dass es hier immer Leute gibt, die einem über die eigenen Wissenslücken hinweghelfen
So implementiert und ausprobiert:
Verbraucht weniger
Ram und is sogar noch deutlich schneller.
--
Hat sonst noch jemand irgendeine Idee, was man verbessern könnte?
EDIT2:
Hab mir grad nochmal die implementation der Klasse TBits angeschaut:
Delphi-Quellcode:
TBits = class
private
FSize: Integer;
FBits: Pointer;
procedure Error;
procedure SetSize(Value: Integer);
procedure SetBit(Index: Integer; Value: Boolean);
function GetBit(Index: Integer): Boolean;
...
Ich denke doch, dass ich einige Probleme bekomme, wenn ich die größe über MaxInt setze.
Daher hätte ich dann dovh eine maximale obere Grenze von 2.147.483.647.
Oder übersehe ich da was?