Enumval in Delphi darstellen

[marabu]

Könnte so aussehen:

Delphi-Quellcode:

function Test(bits, mask: cardinal): boolean;
begin
  // Result := bits and mask <> 0; // funktioniert nur mit Ein-Bit-Test
  Result := bits and mask = mask;  // testet auch Bit-Felder
end;

begin
  if Test(KS_ACCESS, KS_AC_PART)
    then ShowMessage('Stimmt')
    else ShowMessage('Falsch');
end;

Grüße vom marabu