Question

delphi 6 OleVariant 问题 if intpara=nil then exit; 程序允许 到这句报错 怎么处理？

procedure TForm1.btn1Click(Sender: TObject);
var
dwEnrollData: OleVariant; High,Low,i : Integer; sEnrollList : TStringList; intpara : array of array of variant ;
begin
sEnrollList := TStringList.Create;
try
dwEnrollData := VarArrayCreate([0,10],varInteger);
for i:=0 to 10 do dwEnrollData[i]:=i;
intpara := dwEnrollData;
if intpara=nil then exit;

High:= VarArrayHighBound(dwEnrollData,1);
Low := varArrayLowBound(dwEnrollData,1);
for i:=Low to High do sEnrollList.Add(inttostr(dwEnrollData[i]))
ShowMessage(sEnrollList.Text);
finally
sEnrollList.Free;
end;
end;

if intpara=nil then exit; 程序允许 到这句报错 怎么处理？

Answer 1

intpara没有初始化
如
setlength(intpara, 2, 11);