Problem mit Enumeration

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von Schlingel · begonnen am 6. Feb 2016 · letzter Beitrag vom 14. Mär 2016

Vorheriger Beitrag

Nächster Beitrag

Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.495 Beiträge

Delphi 12 Athens

AW: Problem mit Enumeration

14. Mär 2016, 08:28

Dir ist klar das Random(255) nur Zahlen im Bereich 0..254 erzeugt?

zusammenfalten · markieren

Delphi-Quellcode:

			function Get_a_Bit(const AValue: Cardinal; const Bit: Byte): Boolean; overload;

function Get_a_Bit(const AValue: Cardinal; const Bit: THanID): Boolean; overload;

implementation

function Get_a_Bit(const AValue: Cardinal; const Bit: Byte): Boolean;

begin

  Result := (AValue and (1 shl Bit)) <> 0;

end;

function Get_a_Bit(const AValue: Cardinal; const Bit: THanID): Boolean;

begin

  Result := Get_a_Bit(AValue, Ord(Bit));

end;