8
Conn : TODBCConnection;
9
TableNames : TStringList;
13
Conn:=TODBCConnection.Create(Nil);
17
TableNames:=TStringList.Create;
18
TableNames.Sorted:=True;
20
Conn.GetTableNames(TableNames,True);
21
Writeln('Found ',TableNames.Count,' tables : ');
22
For I:=0 to TableNames.Count-1 do
23
Writeln(TableNames[i]);