Delphi 获取Access中的表名

本文整理自网络，侵删。

 //声明变量：

lString,lTableName:TStrings;


//-----------获取表名信息-------------
lString:=TStringList.Create;
lTableName:=TStringList.Create;
DM_Conn.con_Access.GetTableNames(lString,True);
for i:=0 to lString.Count-1 do
begin
if (lString.Strings[i]<>'MSysACEs')
and (lString.Strings[i]<>'MSysObjects')
and (lString.Strings[i]<>'MSysQueries')
and (lString.Strings[i]<>'MSysRelationships') then
lTableName.Add(lString.Strings[i]);
end;
 

相关阅读 >>

Delphi 格式化输出函数(2): formatdatetime

Delphi提取任意长度随机数

webbrowser里网页根据文字判断来点击链接

Delphi 个人所得税计算函数

Delphi 计算imei的校验位

Delphi 获取url特殊路径

Delphi的字符串与16进制的相互转换函数的汇编代码

Delphi 判断文件是否正在被使用

Delphi 去掉mdi窗口的滚动条

Delphi 在memorystream查找字符串

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 获取Access中的表名