求一个Int64转为二进制字符串表示的函数 求一个Int64转为二进制字符串表示的函数function Int64ToBinStr(Source: Int64): string; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function Int64ToBinStr(Source: Int64): string;begin while Source > 0 do begin if ( Source and $01 ) =1 then Result :='1'+ Result else Result :='0'+ Result; Source:=Source SHR 1 ; end; end; 关于文件流的问题 主键选择的问题 读写文件的摘要 dllhost错误? 滚动窗体 那位大哥有bmp格式转换为pcx格式的源码? otstring前的ot是什么意思? 关于Express系列界面控件 socket中为什么在clientsocket中执行了socket.sendbuf之后,服务端的SocketClientRead事件不被激发? 怎样在自定义控件中加上hint和showhint属性,另外我想在我需要的时候就显示hint,该怎样实现?请举例说明!up有分! 招聘,招聘对象:毕业生;工作地点:温州,详情请进 进不了Delphi7调试器,一调试就死锁
begin
while Source > 0 do
begin
if ( Source and $01 ) =1 then Result :='1'+ Result else Result :='0'+ Result;
Source:=Source SHR 1 ;
end;
end;