/|\АРТЕМ.NET.RU /|\ - Портал для программистов и не только: Delphi Visual Basic BORLAND С++ PERL PHP HTML

Delphi 1

Копирование таблицы с помощью DBE

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;

[000615]