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;