PASCAL语言中的OctToInt

Question

我正在为我设计的虚构处理器(有点像DCPU-16)编写汇编语言，我想包括所有主要的数基。我有十六进制，二进制和十进制，但我不能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;