tablename:='aaa';
with query do
begin
close;
sql.clear;
sql.add('select name from sysobjects where name='''+tablename+'''');
open;
end;
if not query.isempty then
showmessage('存在');
with query do
begin
close;
sql.clear;
sql.add('select name from sysobjects where name='''+tablename+'''');
open;
end;
if not query.isempty then
showmessage('存在');
Begin
result:=false;
with query do
begin
close;
sql.clear;
sql.add('select name from sysobjects where name='''+tablename+'''');
open;
end;
if not query.isempty then
result:=true;
end;
调用时就 ,比如判断 aaa 表存在不存在就这样
if isExist('aaa') then
結賬