十六进制中的1用$01表示，那么二进制，八进制呢？

Question

pascal没有二进制、八进制的表示方法，都换成十六进制表示吧

Answer 1

真需要的话，自己编一个函数吧，如：base2('1001101'),base8('1234567'),容易编出来。

Answer 2

function base2(s:string):integer;
var i:integer;
begin
  result:=0;
  for i:=1 to length(s) do
    result:=(result shl 1)+(byte(s[i])-byte('0'));
end;function base8(s:string):integer;
var i:integer;
begin
  result:=0;
  for i:=1 to length(s) do
    result:=(result shl 3)+(byte(s[i])-byte('0'));
end;自己加上排错代码吧。