Bitmaske Erstellen

[ken_jones]

Ööh,ja.. Oder so:

Delphi-Quellcode:

function GetBitMask(abyte:byte):TBitmask;
var i:integer;
begin
  for i := 0 to 7 do result.Bits[i] := (abyte shr i and $1) = $1;
end;