Ein alternativer Ansatz wäre:
Delphi-Quellcode:
for i := 0 to (SizeOf(Int) * 8) - 1 do
Result := b[i in TIntegerSet(Int)] + Result;
mit
Delphi-Quellcode:
TIntegerSet = set of 0..SizeOf(Integer) * 8 - 1;
aus
System.SysUtils.
Das lässt such auch problemlos auf Int64 erweitern, wobei man dann
Delphi-Quellcode:
TInt64Set = set of 0..SizeOf(Int64) * 8 - 1;
halt selbst deklarieren muss.