如下DELPHI代码如何用BCB来写 ( 积分: 50 )

Const DATASIZE = 512;
var
glngData: OleVariant;
i: int
sum: longint;
begin
If VarType(glngData) = varEmpty Then
glngData := VarArrayCreate([0,DATASIZE], varInteger);
For i := 0 To DATASIZE - 1 do
sum = sum + glngData;
end;

目前還沒用過 OleVariant 類型
const int DATASIZE = 512;
int glngData[DATASIZE];
sum = 0;
for (int i = 0
i < DATASIZE
i++)
sum += glngData

1、可以直接定義數組大小；
2、數組沒有初始化。

const int DATASIZE = 512;
OleVariant glngData;
int i;
longint sum;
int temp[2]={0,DATASIZE};
if VarType(glngData) =varEmpty
glngData= VarArrayCreate(temp,varInteger) ;
for (int i = 0
i < DATASIZE
i++)
sum += glngData