How to get a list of all table names in a database (Views: 28)
Problem/Question/Abstract: How does one get a list of the table names in a database? The TDatabase.Datasets list seems to be only open tables. I need to get at the unopened ones as well. Answer: procedure TForm1.Button1Click(Sender: TObject); var ts: TStringlist; begin ts := TStringlist.create; Session.GetTableNames('DBDEMOS', '*.DB', false, false, ts); listbox1.items.assign(ts); ts.free; end; |