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.