Получаем имя файла и путь локальной таблицы в Delphi

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; 
  
procedure TForm1.Button1Click(Sender: TObject); 
begin
  Memo1.Lines.Add(fDbiFormFullName(Table1)); 
end; 

Примечание: таблица должна быть открытой.

Kwork.ru - услуги фрилансеров от 500 руб.
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (11 оценок, среднее: 4,91 из 5)
Загрузка...
Добавить комментарий