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

Previous  Top  Next

    
 

 

Из книги Стива Тейксейра и Пачеко 'Delphi 4. Руководство разработчика'

я взял функцию для быстрого копирования

таблиц вместе со всеми дополнительными файлами:

Вот она:

Code:

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;

 

 

 

©Drkb::02404

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