请问将十进制数转化为二进制的函数IntToHex()的参数是什么类型？

Question

我在程序中如下写的：
var
  s:String;
begin
  s:=IntToBin(123);
可是老提示IntToBin未定义，怎么回事？

Answer 1

Uses IdGlobal;在你的程序中加上上面一句

Answer 2

function IntToBin(Value: cardinal): string;
var
  i: Integer;
begin
  SetLength(result, 32);
  for i := 1 to 32 do
  begin
    if ((Value shl (i - 1)) shr 31) = 0 then
      result[i] := '0' {do not localize}
    else
      result[i] := '1'; {do not localize}
  end;
end;