var
icount:integer;
atablelist:tstringlist;
begin
try
atablelist:=tstringlist.create;
ADOConnection1.GetTableNames(atablelist,false);
for icount:=0 to atablelist.count-1 do
begin
listveiw.items.add(atablelist.strings[icount]);
end;
finally
atablelist.free;
end;
end;
程序的意思是把 GetTableNames的表名加到listview里