Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Разработка баз данных / Как получить имя файла и путь локальной таблицы?

Как получить имя файла и путь локальной таблицы?

Следующий пример взят из файла BDE32.HLP Borland/CommonFiles/BDE directory:

     implementation

     {$R *.DFM}

     uses DbiTypes, DbiProcs;

     function fDbiFormFullName(Tbl: TTable): String;
     var
       Props: CurProps;
       Buffer1 : array[0..DBIMAXPATHLEN] of char;
       Buffer2 : array[0..DBIMAXPATHLEN] of char;
     begin
       Check(DbiGetCursorProps(Tbl.Handle,Props));
       StrPCopy(Buffer1, Tbl.TableName);
       Check(DbiFormFullName(Tbl.DBHandle,
                 @Buffer1,
                 Props.szTableType,
                 @Buffer2));
       Result := StrPas(Buffer2);
     end;

     procedure TForm1.Button1Click(Sender: TObject);
     begin
       Memo1.Lines.Add(fDbiFormFullName(Table1));
     end;

Примечание:
Таблица должна быть открытой.
Работает с локальными таблицами.



Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru