Question

我有两个Delphi7方案:一台COM自动化服务器(EXE)和正在使用自动化服务器的其他方案。

我需要从一个方案向另一个方案通过一系列的 by。

在进行一些搜索后,我发现,使用变量阵列是走路(如果你知道任何更好的方法,请更正)。

My question is: How do I create a variant array in one program, and then how do I read its values in the other?

我知道VarArrayCreate和VarArrayLowBound/VarArrayHighBound的情况,但我不知道如何适当做到这一点。

感谢!

Answer 1

你们就是这样:

宣言

var
  VarArray: Variant;
  Value: Variant;

之后是:

VarArray := VarArrayCreate([0, Length - 1], varVariant);

或者

VarArray := VarArrayCreate([0, Length - 1], varInteger);

取决于数据类型。接着,你也这样做:

i := VarArrayLowBound(VarArray, 1);
HighBound := VarArrayHighBound(VarArray, 1);

while i <= HighBound do
begin
  Value := VarArray[i];
  ... do something ...
  Inc(i);
end;

最后,当你不需要时,你就会清除阵列。 EDIT: (这是任择性的,见。在2009年德尔菲,我是否需要自由的变量阵列? iii

VarClear(VarArray);

这就是说的。另一例见官方网站

EDIT:

阵列只应当建立一次。然后,就如上所示。

Answer 2

另一方:

(假设价值是变数参数,元件类型为广度)

var
  Source: PWideStringArray;

if VarIsArray(Value) then begin
  Source:= VarArrayLock(Value);
  try
    for i:= 0 to TVarData(Value).VArray^.Bounds[0].ElementCount - 1 do
      DoWhatEverYouWantWith(Source^[i]);
    end;
  finally
    VarArrayUnlock(Value);
  end;
end;

友情链接