Быстрое копирование таблиц

Из книги Стива Тейксейра и Пачеко 'Delphi 4. Руководство разработчика'
я взял функцию для быстрого копирования
таблиц вместе со всеми дополнительными файлами:
Вот она:

procedure QuickCopyTable(T: TTable;DestTblName:string;Overwrite: boolean);

// только для не SQL-ых, т.е не промышленных БД (dBase, Paradox ..)

var DBType: DBIName;

  WasOpen:boolean;

  NumCopied:word;

begin

 WasOpen:=T.Active;

 if not WasOpen then T.Open;

 Check(DbiGetProp(hDBIObj(T.Handle),drvDRIVERTYPE,@DBType,SizeOf(DBINAME),

  NumCopied));

 Check(DbiCopyTable(T.DBHandle, Overwrite, PChar(T.TableName),DBType, PChar(DestTblName)));

 T.Active:=WasOpen;

end;

Взято с сайта http://blackman.wp-club.net/

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...