如题
解决方案 »
- 函数调用中参数的问题!!!!!
- 求救:连接SQL Server时的错误捕捉!
- 一个小问题,你一定会的.
- 【板务醒目】辞去 Windows SDK/API 板斑竹职务 9/10【散分醒目】
- 怎样使窗体既是borderstytle=sizeable,又不显示标题栏??(自己模拟)
- treeview控件中items.getnode函数的参数是HTREEITEM类型的,可没有这种类型啊
- 急!急!急!UDP中接包&解包想用多线程,怎么实现?
- sql问题
- ADO的事务处理异常。
- *****我在自定义了纸张大小的打印,为何不支持Star AR-3200打印机?????
- 告急十万火急
- 请问:怎样在窗体加载时创建9百9十9万9千9百9十9个(9999999)个CheckBox控件或者是TcheckBoxList并显示出来。
const
test='0.010100';
var
i:integer;
d,temp:double;
tempstr:string;
begin
d:=0;
tempstr:=copy(test,pos('.',test)+1,length(test));
for i :=1 to length(tempstr)-1 do
begin
temp:=strtoint(tempstr[i])*power(2,i);
if temp>0 then
d:=d+1/temp;
end;
showmessage(formatfloat('0.0000',d));
end;
,,,
依此类推0.101b表示0.1b + 0.01b=0.5d + 0.125d