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

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

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.

{/codecitation}

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