本文整理自网络,侵删。
function IsTableExist(TableName:String):Boolean
var
MyStringList:TStrings;
begin
MyStringList := TStringList.Create;
try
ADOConnection1.GetTableNames(MyStringList, False);
if MyStringList.IndexofName(TableName)=-1 then
Restlt:=FALSE
else
Result:=TRUE;
finally
MyStringList.Free;
end;
end;
相关阅读 >>
Delphi 解决idtcpclient和idtcpserver通信中文乱码问题
在Delphi如何实现模拟组合按键,如发送ctrl_f的按键消息
Delphi xe android的所有权限按照分类总结说明
Delphi webbrowser载入自定义html内容并显示
更多相关阅读请进入《Delphi》频道 >>