Как получить список таблиц?

[VahaC]

Есть MySQL сервер и ADOConnection1 (соединение настроеное и подключёноё) .
Скажите плиз как получить список таблиц имеющихся в базе данных к которой подключён ADOConnection1?

 

[Gilen]

var StrList: TStrings;
begin
StrList := TStringList.Create;
ADOConnection1.GetTableNames(StrList, False);
end;

Далее выводишь в таблице или где угодно через цикл:

for i := 0 to (StrList.Count - 1) что-то там := StrList[i];