function CopyTable(tbl: TTable; dest: string): boolean;
var
psrc, pdest: array[0..DBIMAXTBLNAMELEN] of char;
rslt: DBIResult;
begin
Result := False;
StrPCopy(pdest, dest);
with tbl do
begin
try
DisableControls;
StrPCopy(psrc, TableName);
rslt := DbiCopyTable(DBHandle, True, psrc, nil, pdest);
Result := (rslt = 0);
finally
Refresh;
EnableControls;
end;
end;
end;
|
Копирование таблицы с помощью
DBE