Zitat von
earlyperl:
Mein Gott ist das kompliziert...
Nö, nur anders
Zitat von
earlyperl:
Ich habe Delphi 6 Pro.
Schade, in aktuellen Delphi-Versionen hätte man den Array-Operator für Bits (so wie im MC-Pascal) nachbilden können.
Zitat von
earlyperl:
wenn du mir jetzt noch verrätst, wie ich ein bit setzen kann, währe ich dir sehr dankbar!
Include/Exclude für einzelne Bits, oder +/- für mehrere:
Delphi-Quellcode:
var
Foo: TByteBits;
begin
Foo := [bBit1, bBit3, bBit5];
ShowMessage(IntToStr(Byte(Foo)));
Include(Foo, bBit0);
Include(Foo, bBit2);
Exclude(Foo, bBit1);
Exclude(Foo, bBit3);
ShowMessage(IntToStr(Byte(Foo)));
Foo := Foo - [bBit0, bBit2] + [bBit1, bBit3];
ShowMessage(IntToStr(Byte(Foo)));
end;
ps: man kann auch ".." verwenden um Bit-Bereiche anzugeben: [bBit0..bBit3, bBit7] sind die ersten vier Bits und das höherwertigste Bit ($8F).