david
fff1b2a4dc
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.SDAC@3 6f543ec7-021b-7e4c-98c9-62eafc7fb9a8
49 lines
771 B
ObjectPascal
49 lines
771 B
ObjectPascal
{$IFNDEF CLR}
|
|
{$I Dac.inc}
|
|
|
|
unit DacReg;
|
|
{$ENDIF}
|
|
|
|
interface
|
|
|
|
procedure Register;
|
|
procedure RegisterCRBatchMove;
|
|
|
|
implementation
|
|
|
|
{$IFNDEF CLR}
|
|
{$IFDEF VER9}
|
|
{$R DADesign9.res}
|
|
{$ELSE}
|
|
{$R DADesign.res}
|
|
{$ENDIF}
|
|
{$IFDEF VER10P}
|
|
{$R DADesign10p.res}
|
|
{$ENDIF}
|
|
{$ELSE}
|
|
{$R DADesign.res}
|
|
{$ENDIF}
|
|
|
|
uses
|
|
Classes, CRBatchMove, VirtualTable;
|
|
|
|
var
|
|
CRBatchMoveRegistered: boolean;
|
|
|
|
procedure Register;
|
|
begin
|
|
RegisterComponents('Data Access', [TVirtualTable]);
|
|
end;
|
|
|
|
procedure RegisterCRBatchMove;
|
|
begin
|
|
if not CRBatchMoveRegistered then begin
|
|
RegisterComponents('Data Access', [TCRBatchMove]);
|
|
CRBatchMoveRegistered := True;
|
|
end;
|
|
end;
|
|
|
|
initialization
|
|
CRBatchMoveRegistered := False;
|
|
end.
|