频道分类

delphi FDConnection查看所有表包含用户表和系统表

作者:admin 来源: 日期:2020/3/31 22:43:32 人气: 标签:

 
function TForm1.DBtableExists(sTableName: string;FDconn: TFDConnection): Boolean;
  var
    vTableNames:TStringList;
begin
  Result:=False;
  vTableNames:=TStringList.Create;
    try
      FDconn.GetTableNames('','','',vTableNames,[osMy],[tkTable]);
      if vTableNames.IndexOf(sTableName)>=0  then
          Result:=True;
    finally
      vTableNames.Free;
    end;
end; 


上一篇:Delphi 查找某函数在某个单元下一篇:没有资料