Обновлено: 01 декабря, 2018

Получаем имя файла и путь локальной таблицы в 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;

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

Рейтинг автора

Автор статьи

Юрий

Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.

Написано статей

439