UInt32): string;
var
i: UInt32;
begin
SetLength(Result, ABitSize);
for i := 0 to ABitSize - 1 do
if GetBit(ADataPtr, i)
then Result[i+1] := '1'
else Result[i+1] := '0';
// Result[ABitSize] := #0;
end;
использование беззнаковых чисел в качестве счетчика и конечной границы цикла не самая хорошая идея. при ABitSize = 0 будет интересно
я знаю. но в этот раз беззнаковые победили.
Обсуждают сегодня