如何在Delphi中使用变体数组
发布时间:2020-12-15 10:10:21 所属栏目:大数据 来源:网络整理
导读:我有两个Delphi7程序:一个COM自动化服务器(EXE),另一个使用自动化服务器的程序. 我需要从一个程序传递一个字节数组到另一个程序. 经过一些搜索,我发现使用变体数组是去的方式(如果你知道任何更好的方法,请更正我). 我的问题是: 如何在一个程序中创建一个变
我有两个Delphi7程序:一个COM自动化服务器(EXE),另一个使用自动化服务器的程序.
我需要从一个程序传递一个字节数组到另一个程序. 经过一些搜索,我发现使用变体数组是去的方式(如果你知道任何更好的方法,请更正我). 我的问题是: 我知道VarArrayCreate和VarArrayLowBound / VarArrayHighBound,但我不确定如何正确地做到这一点. 谢谢! 解决方法
你创建它:
首先声明 var VarArray: Variant; Value: Variant; 然后创作: VarArray := VarArrayCreate([0,Length - 1],varVariant); 或者你也可以拥有 VarArray := VarArrayCreate([0,varInteger); 取决于数据的类型.然后你像这样迭代: i := VarArrayLowBound(VarArray,1); HighBound := VarArrayHighBound(VarArray,1); while i <= HighBound do begin Value := VarArray[i]; ... do something ... Inc(i); end; 最后,当你不需要它时,你清除数组.编辑:(这是可选的,见In Delphi 2009 do I need to free variant arrays?) VarClear(VarArray); 那就是它的一切.另一个例子看官方Embracadero Help 编辑: 该数组应该只创建一次.然后使用它就像上面的例子所示. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |