如何设置检查一个数据库中的表存不存在？

Question

var Str:TStringList;
begin
str:=TStringList.Create;
database1.gettablename(Str,False);
if str.index(edit1.text)=-1 then
begin
  showmessage('不存在');
end;

Answer 1

var ss:TStringList;
ss.Create;
Database1.Session.GetTableNames(Database1->DatabaseName,'*.*',false,false,ss);
if (ss.IndexOf(Edit1.Text)>=0) then
   { 在 };
else
   { 不在 };
ss.Free;   

Answer 2

var ss:TStringList;
ss:=TStringList.Create;
Database1.Session.GetTableNames(Database1->DatabaseName,'*.*',false,false,ss);
if (ss.IndexOf(Edit1.Text)>=0) then
  { 在 };
else
  { 不在 };
ss.Free;  

Answer 3

ch81:   ADO方式
俺:     BDE方式   -> 写错了,应为.