pascal - PascalのOctToInt

Question

私は自分の設計の架空のプロセッサ（DCPU-16のようなもの）用のアセンブラを書いていますが、すべての主要な基数を含めたいと思います。hex、bin、decがありますが、OctToInt関数がないように見えるため、octを取得できません。何か助けはありますか？

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;