bool-array logisch verknüpfen

[Hawkeye219]

Hallo,

wenn es dir nur darum geht, die Implementierung einer UND-Verknüpfung zu vermeiden, dann könntest du die Klasse TBits verwenden:

Delphi-Quellcode:

var
  Bits : TBits;
begin
  Bits := TBits.Create;
  Bits.Size := 42;

  {.. hier kannst du die Bits nach Bedarf setzen oder löschen ..}

  if (Bits.Size > 0) and (Bits.OpenBit = Bits.Size) then
    { alle Bits sind gesetzt };

  Bits.Free;
end;

Bei bis zu 256 Elementen käme eventuell noch ein set of Byte in Frage. Damit lassen sich auch andere Verknüpfungen als UND realisieren.

Gruß Hawkeye