Delphi 判断数据库表是否存在

//根据表名和一个数据库连接判断表是否存在

function TForm1.DBTableExists(aTableName: string;aADOConn:TADOConnection): Boolean;
var
    vTableNames:   TStringList;
begin
    Result:=False;
    vTableNames :=  TStringList.Create;
    try
        aADOConn.GetTableNames(vTableNames); //取得所有表名
        if  vTableNames.IndexOf(aTableName)>= 0 then //判断是否存在
        Result:=True;
    finally
        vTableNames.Free;
    end;
end;