delphi DecToBinStr

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

Delphi 基础学习 字符串去掉回车符

Delphi tdirectory.getdirectories

Delphi程序中操作注册表

Delphi获取u盘序列号的代码

Delphi捕获u盘插入或者拔出

为Delphi的控制台程式添加图标

Delphi xe5 程序中标识win max android ios程序代码分别实现

怎样在Delphi中屏蔽flash控件的右键弹出菜单

Delphi有用的函数extractfilename、extractfilepath

Delphi combobox 下拉事件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi DecToBinStr