celebrity porn tube
free celebrity porn
real celebrity porn

Delphi-Help

  • Increase font size
  • Default font size
  • Decrease font size
Главная

Функция для быстрого копирования таблиц вместе со всеми дополнительными файлами

Оцените материал
(0 голосов)


Функция для быстрого копирования таблиц вместе со всеми дополнительными файлами

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

Путь нужно задавать только АНГЛИЙСКИМИ буквами.

procedure QuickCopyTable(T: TTable; DestTblName: string; Overwrite: boolean);
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;
Прочитано 5269 раз

Авторизация



Счетчики