Путь к локальной таблице

Советы » Таблицы » Путь к локальной таблице

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

; // Notes: // Table_You_Are_Using.Active Must be True. // Works on Local Tables.

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com