Pascal 帕斯卡八进制

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

每个基都有一个函数是个坏主意。最好做一个通用的“BaseToint（value:string，base:integer=10）：integer”函数……我认为八进制不再是主要的数字基了。通常只用于Unix权限。哦，回到12位处理器的时代，比如PDP8、PDP12、Intersil 6100（基于PDP机器）。Ohh joy，octal在这些机器上工作得很好。你可能会发现使用它们的奇怪的微控制器。如果您只有7段显示，并且希望输出数据、地址，那么Octal也很方便。我认为Heath H8使用了8080芯片（8位芯片）这样的系统。干杯谢谢你的帮助！            ​

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;