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.