Список объявленных БД
Метод procedure GetAliasNames(List: TStrings); возвращает список псевдонимов БД, объявленных для BDE на данном компьютере.
Количество активных в данном приложении БД возвращает свойство property DatabaseCount: Integer; При этом отсчет активных БД ведется начиная с 0.
Свойство property Databases[Index: Integer]: TDatabase; обеспечивает доступ к активной БД с индексом Index; при этом каждой БД из списка Databases соответствует компонент типа TDatabase. Таким образом, при работе с каждой активной БД из списка Databases можно пользоваться свойствами, методами и событиями, присущими компоненту TDatabase.
Например,
поместить в ListBox2 список активных БД приложения:var i : Integer;
ListBox2.Clear;
WITH Session do begin
FOR i := 0 TO DatabaseCount - 1 do
ListBox2.Items.Add(Databases[i].DatabaseName) ;
END;//with
