RSS订阅 | 匿名投稿
您的位置:网站首页 > 函数 > 正文

delphi DecToBinStr

作者:admin 来源: 日期:2018/2/6 10:37:31 人气: 标签:

function DecToBinStr(N: Integer): string;
var
  S: string;
  i: Integer;
  Negative: Boolean;
begin
  Negative := False;
  if N < 0 then Negative := True;
  N := Abs(N);
  for i := 1 to SizeOf(N) * 8 do
  begin
    if N < 0 then S := S + '1'
    else S := S + '0';
    N := N shl 1;
  end;
  Delete(S, 1, Pos('1', S) - 1);
  if Negative then S := '-' + S;
  Result := S;
end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
上一篇:delphi HexToInt
下一篇:没有资料