pascal - 帕斯卡中的 OctToInt

Question

我正在为我设计的假想处理器（有点像 DCPU-16）编写汇编程序，我想包括所有主要数字基数。我有 hex、bin 和 dec，但我不能得到 oct，因为似乎没有 OctToInt 函数。有什么帮助吗？

Answer 1

function OctToInt(Value: string): Longint; 
  var
    i, int: Integer;
begin
  int := 0;
  for i := 1 to Length(Value) do
    int := int * 8 + StrToInt(Copy(Value, i, 1));
Result := int;
end;