请问有哪位高手知道Automation的Method的参数可不可以用数组?怎样实现?
解决方案 »
- 未来的C/S谁会是王道?
- 有关SHOW的?
- 设置每个MDICHILDFORM的属性很麻烦,如何定一个过程来设置想要设置的一些FORM和所有的FROM的
- spcomm控件的问题
- 如何使用delphi中新建的窗体默认的font为gb2312
- 一个小问题,简单,大大们帮忙看看
- Object Pascal 语言相关问题!
- stringgrid的每一个列宽有没有办法动态生成一个固定值????--------------100分拿去!!!
- 如何汉化DELPHI5!
- 请问 DELPHI XE 7里,怎么把程序代码设成是64位而不是32位
- 零散货物如何统计(在线等!!!!!)
- 如何将C++语法翻译为DELPHI: BYTE *buff1; buff1 = new BYTE[768*576*3];
Byte, Currency, Real, Double, Real48, Integer, Single, Smallint, AnsiString, ShortString, Borland.Delphi.System.TDateTime , Borland.Vcl.Variants.Variant , OleVariant, and WordBool你可以直接用OleVariant来代替数组:
procedure HandleArray(const params: OleVariant); // safecall;
var
i: Integer;
value: Variant;
begin
Assert(VarArrayDimCount(params) = 1);
for i := VarArrayLowBound(params, 1) to VarArrayHighBound(params, 1) do
begin
value := VarArrayGet(params, [i]);
//...
end;
end;E.g. HandleArray(VarArrayOf([1, 'abc', 2.3]));如果是字节数组,即Variant的类型为:VarArray or VarByte,可以用VarArrayLock和VarArrayUnLock,网上都有。