Псевдонимы BDE

Written on 18 Октября 2007. Posted in [Delphi] Базы данных. BDE

Попробуйте следующий код:

var

theStrList : TStringList;

GPath : String;

begin

theStrList := TStringList.Create;

{Используем GetAliasParams для получения псевдонимов и ассоциированных с ними путей}

Session.GetAliasParams(<Здесь псевдоним из выпадающего списка>,theStrList);

{Удаляем первые шесть символов, которые всегда равны "PATH="}

GPath := copy(theStrList[0],6,length(theStrList[0]))

theStrList.Free;