有没有这样的函数吗？

Question

是将3折分成字符串'0011' 吗?用FORMAT 就可以了.

Answer 1

给你一个算法：// 功能：十进制转换成二进制；
// 参数：ANum: 被转换的十进制数；
// 返回：二进制字符串；
// 问题：没有处理负数的情况；
function DeciToBin(ANum: Integer): string;
begin
  if ANum = 0 then
  begin
    Result := '0';
    Exit;
  end;
  Result = '';
  while ANum > 0 do
  begin
    if ANum mod 2 = 0 then
      Result := '0' + Result
    else
      Result := '1' + Result;
    ANum := ANum div 2;
  end;
end;