Forum: Programmieren allgemein
by Uwe Raabe,
3. Jun 2020
Inline-Variablen gibt es erst seit Delphi 10.3, also nein und nein.
Forum: Programmieren allgemein
by Uwe Raabe,
3. Jun 2020
Glück gehabt. Ich hätte sonst nämlich gleich nach den Lösungen für Win64, MacOS, Android, iOS und Linux mit ihren jeweiligen Derivaten gefragt 8-)
Forum: Programmieren allgemein
by Uwe Raabe,
3. Jun 2020
Und hier noch eine etwas veränderte Version für Delphi 10.4:
Function Bitmask(Value, Position: Cardinal): Cardinal;
var
i: Integer;
Bitcounter: Cardinal;
cntOfBitsSet: Integer;
valSet: TIntegerSet;
begin
result := 0;
Forum: Programmieren allgemein
by Uwe Raabe,
3. Jun 2020
Ich will auch mal:
Function Bitmask(Value, Position: Cardinal): Cardinal;
var
i: Integer;
Bitcounter: Cardinal;
valSet: TIntegerSet;
begin
result := 0;
valSet := TIntegerSet(Value);
Forum: Programmieren allgemein
by Uwe Raabe,
3. Jun 2020
Probier mal mask := Bitmask(0,5,false);