くだすれDelphi(超初心者用)その58【Embarcadero】

[167 デフォルトの名無しさん 2020/06/03(水) 15:33:26.75 ID:RRqnimZd]

なかったと記憶。
今時のよその言語には普通にあるものなのかしら？
MSX-BASICだと「&B11110010」みたいにリテラルで記述できたのですが。

よほど速度を求めるのでなければ文字列からの変換でいいと思います。適当に作ってみました。

// 2進数文字列を整数値に変換する関数。
function BinToNum(const bin: string): integer;
function _BinToNum(const b: char): integer;
begin
case b of
'0': Result := 0;
'1': Result := 1;
else
raise Exception.CreateFmt('不正な2進数文字列(%s)', [bin]);
end;
end;
var
i: Integer;
begin
Result := 0;
for i := 1 to Length(bin) do
Result := (Result shl 1) or _BinToNum(bin[i]);
end;