OctToInt在Pascal

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;