VarArrayHighBound 用来检查 Variant 数组的最大下标值。
IntToHex 将整数转换为16进制字符串。
IntToHex 将整数转换为16进制字符串。
解决方案 »
- 请问那里有问题?
- 如何在DBImage中打开JPG文件,并保存到相应的字段中?
- 如何更新BDE!
- 使用Dll过程中出现的问题!有经验的朋友进来看看!
- 初学Delphi,请各位大侠推荐若干好书!
- 1stclass 3000怎么安装?我下载了一个1stclass 3000,是一个可执行的安装程序,也有注册码。
- 大概是最菜的问题了,怎么把adoquery中用sql写的数据加到combobox中
- 请问如何利用adoquery(或query)实现对多表的更新(在线,给分多多)
- "我想一上局域网就自动获取局域网里所有计算机的IP"
- DocDrag1.0正式版版正式发布,大家以后收集加工网上资料方便了,送分咯!
- 求教:报表打印
- 我想做一个半透明的窗口效果
a: OleVariant;
int: Integer;
begin
a: = VarArrayCreate([1,100],VarVariant);
a[12] := 10;
ShowMessage(a[10]); //空
ShowMessage(a[12]); //10
ShowMessage(IntToStr(a[10])); //0
int := VarArrayHighBound(a,1);//返回a的第一维最大下标
ShowMessage(IntToStr(int)); //100
ShowMessage(IntToHex(100,3)); //返回100的十六进制表示,长度为3,不足以0代替,返回064
end;
function IntToHex(Value: Int64; Digits: Integer): string; overload;
将整数化为16进制数的字符串形式,前一个参数为要转换的整数,后一个参数是
转换成16进制的位数。
function VarArrayHighBound(const A: Variant; Dim: Integer): Integer;
区的可变数组的维数或范围,第一个参数为具体的数组,第二个参数是最左边从那里开始!(有1,或是2等等);