Получение пути псевдонима и таблицы 2

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Вот маленький примерчик того, как в Delphi можно получить информацию о псевдонимах. Для начала создайте новый проект с ListBox и тремя метками (с именамиListBox1, Label1, Label2 и Label3). Затем создайте обработчик события формы OnCreate с примерно следующим кодом:

procedure TForm1.FormCreate(Sender: TObject);

begin

Session.GetAliasNames(ListBox1.Items);

end;

Теперь создайте обработчик OnClick для ListBox:

procedure TForm1.ListBox1Click(Sender: TObject);

var

tStr: array[0..100] of char;

Desc: DBDesc;

begin

if ListBox1.Items.Count = 0 then

exit;

StrPLCopy(tStr, ListBox1.Items.Strings[ListBox1.ItemIndex], High(tStr));

DbiGetDatabaseDesc(tStr, @Desc);

with Desc do

begin

Label1.Caption := StrPas(Desc.szName);

Label2.Caption := StrPas(Desc.szPhyName);

Label3.Caption := StrPas(Desc.szDbType);

end;

end;

Добавьте следующие модули в секцию ‘uses’ в верхней части модуля:

DB, DBTables, DBITypes, DBIProcs;

Теперь вы можете увидеть путь для всех ваших стандартных псевдонимов (Paradox и dBase).

{/codecitation}

Добавить комментарий