本文整理自网络,侵删。
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 dateof、timeof、yearof、monthof、weekof、dayof、hourof、minuteof、secondof、millisecondof �c 提取时间成分
Delphi xe 获取 android application version 版本
Delphi 2009 新增单元 character[1]: toupper、tolower - 字符与字符串的大小写转换
更多相关阅读请进入《Delphi》频道 >>