删除access数据库中的表，为甚末出错了？

Question

代码如下：
function DeleteADOTable(Catalog:_Catalog;TableName:string):boolean;
var
  i:integer;
  Table1:_table;
begin
    for i:=0 to catalog.Tables.Count do
    begin
      if catalog.Tables[i].Name=tablename then
        begin
          catalog.Tables.Delete(catalog.Tables[i]);《--出错
        end;
    end;
end;

Answer 1

for i:=0 to catalog.Tables.Count - 1 do
    begin
      if catalog.Tables[i].Name=tablename then
        begin
          catalog.Tables.Delete(catalog.Tables[i]);《--出错
        end;
    end;

Answer 2

to: hch_45(HCH ~ahong.net~)，不是这个原因啊function DeleteADOTable(Catalog:_Catalog;TableName:string):boolean;
var
  i:integer;
begin
    for i:=0 to catalog.Tables.Count-1 do《--问题不是出在这里
    begin
      if catalog.Tables[i].Name=tablename then
        begin
          catalog.Tables.Delete(catalog.Tables[i]);《--出错
        end;
    end;
end;
提示：集合中未找到项目

Answer 3

for i:=catalog.Tables.Count - 1 downto 0 do
    begin
      if catalog.Tables[i].Name=tablename then
        begin
          catalog.Tables.Delete(catalog.Tables[i]);《--出错
        end;
    end;

Answer 4

问题应该出在这里：
catalog.Tables.Delete(catalog.Tables[i]);中的catalog.Tables[i]大家再帮忙看看。

Answer 5

function DeleteADOTable(Catalog:_Catalog;TableName:string):boolean;
var
  i:integer;
begin
    for i:=0 to catalog.Tables.Count-1 do 
    begin
      if catalog.Tables[i].Name=tablename then
        begin
          catalog.Tables.Delete(Catalog.Tables.Item[i].Name);
          exit;
        end;
    end;
end;

Answer 6

catalog.Tables.Delete(x) <<==x是什么类型?catalog.Tables[i]是什么类型

Answer 7

pandengzhe的可以，结贴OleVariant类型

Answer 8

for i:=1 to catalog.Tables.Count do 《这样也可以吧
    begin
      if catalog.Tables[i].Name=tablename then
        begin
          catalog.Tables.Delete(catalog.Tables[i]);《--出错
        end;
    end;