Count: Integer;
Свойство Count возвращает количество драйверов СУБД, поддерживаемых в платформе.
Sub Main;
Var
Man: IMetabaseManager;
Drivers: IDbDrivers;
Driver: IDbDriver;
i: Integer;
Begin
Man := MetabaseManagerFactory.Active;
Drivers := Man.Drivers;
For i := 0 To Drivers.Count - 1 Do
Driver := Drivers.Item(i);
Debug.WriteLine("Наименование: " + Driver.Name + "; Идентификатор: " + Driver.Id + "; Ключ: " + Driver.Key.ToString);
End For;
End Sub Main;
После выполнения примера в консоль среды разработки будет выведена информация обо всех драйверах СУБД, поддерживаемых в платформе.
См. также: