Advantage TDataSet Descendant
Returns the table name as the base name, the base name with extension, or the full path name (UNC format).
type TAdsFilenameOptions = ( foBASENAME, FOBASENAMEANDEXT, foFULLPATHNAME );
function AdsGetTableFileName( eOption : TAdsFilenameOptions ) : String;
|
eOption |
Option of what the file name should look like for return. |
If the foFULLPATHNAME is given as the option, then the fully qualified UNC path name is returned regardless of how the file was opened. For example, even if the file was opened with a drive letter style path (e.g., f:\data\file.dbf), a UNC file name will be returned by this routine (e.g., \\server\volume\data\file.dbf).
AdsTable1.TableName := 'Employee';
AdsTable1.Active := TRUE;
strFileName := AdsTable1.AdsGetTableFilename( foFullPathName );
{ strFileName equals \\server\share\path\Employee.ADT }