本文整理自网络,侵删。
//声明变量:
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自动以管理员身份在vista 和 windows7 下运行程序
Delphi controls 属性与继承 tshape 类的小练习
Delphi strtodatetime 这个函数在win7下出错
Delphi 中 image 控件加载bmp、jpg、gif、png等图片的办法
Delphi 通过 arp 协议获取局域网内指定 ip 地址的机器的 mac 地址
更多相关阅读请进入《Delphi》频道 >>