先转换为字符串,再求LENGTH();
解决方案 »
- delphi 数据查询报错 “至少一个参数没有被指定值”
- 求《Delphi+SQL Server数据库应用实例完全解析》电子书!!!谢谢帮忙!!!
- 哪有installshield下的?
- 4字节integer类型有问题,还是pascal的问题,牛
- 如何在硬盘任一目录新建一个文本文件(*.txt),名字要自己取哟!
- 如何提取没有提供任何资料的DLL的输入输出函数?
- 关于数据库的查询
- 如何在memo的一行的特定位置显示字符???
- 看着好像是个老问题,其实不是
- 在DEPHI中如何提高TEXTOUT的效率?
- 教教我怎样在DELPHI中查看对象和代码
- 如何将128-255的数字转换为一个字符,char只能转换0-127.谢谢!
不管是循环,还是length.他总的有一个算法。 我觉得可借用二分法。
效率肯定比循环高。
procedure TForm1.Button1Click(Sender: TObject);
var
aset: set of 1..9;
info:PPropInfo;
p:pointer;
begin
aset := [3]; //[],[1],[2],[3],[4].....
p:=@aset;
caption:=inttostr(byte(p^));
end;
从上面的代码明显可以看出来!
[]=0
[1]=2 //第二位
[2]=4 //第三位
所以,只要统计byte(p^)中1的位数的个数就可以了。
:)