为什么会过界呢？

[dandanlin]

var
tbilist:tstringlist;
vtables:variant;
begin
tbilist:=tstringlist.create;
adoconnection.gettablenames(tbilist);
vtables:=vararraycreate([0,tbilist-1],varvariant);
为什么运行到这里就抱错说：variant array index out of bounds呢？
谢谢，帮帮我吧！

[踢踏]

vtbilist 是什么类型的？是TStringList类型的吗，如果是，就没必要这么写了
for iCount:=0 to vtbilist.Count-1 do

[hamerlove]

语法上都没有问题，可能是其他问题，或者是你数据库里的表太多了吧？？？

[dandanlin]

我明白了，谢谢！

[王集鹄]

var
tbiList: TStringList;
vTables: Variant;
begin
tbiList := TStringList.Create;
ADOConnection.GetTableNames(tbiList);
if tbiList.Count > 0 then
vTables := VarArrayCreate([0, tbiList.Count - 1], varVariant);
end;

[dandanlin]

还是会抱同样的错呀！
for icount:=vararraylowbound(vtbilist,1) to vararrayhighbound(vtbilist,1) do
这句话有什么不对么？
谢谢！