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