ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/runtime/IBBatchMove.pas

Comparing ibx/trunk/runtime/IBBatchMove.pas (file contents):
Revision 7 by tony, Sun Aug 5 18:28:19 2012 UTC vs.
Revision 143 by tony, Fri Feb 23 12:11:21 2018 UTC

#	Line 27 | Line 27
27		{    IBX For Lazarus (Firebird Express)                                  }
28		{    Contributor: Tony Whyman, MWA Software http://www.mwasoftware.co.uk }
29		{    Portions created by MWA Software are copyright McCallum Whyman      }
30	<	{    Associates Ltd 2011                                                 }
30	>	{    Associates Ltd 2011 - 2018                                               }
31		{                                                                        }
32		{************************************************************************}
33
#	Line 43 | Line 43 | uses
43		{$ELSE}
44		unix,
45		{$ENDIF}
46	<	SysUtils, {Graphics,} Classes, Controls, Db,
46	>	SysUtils, Classes,  Db,
47		IB, IBCustomDataSet, IBDatabase, IBTable;
48
49		type
#	Line 53 | Line 53 | type
53
54		TIBBatchMove = class(TComponent)
55		private
56	–	FIBLoaded: Boolean;
56		FDestination: TIBTable;
57		FSource: TIBCustomDataSet;
58		FMode: TBatchMode;
#	Line 105 | Line 104 | type
104
105		implementation
106
107	<	uses IBIntf;
107	>	uses FBMessages;
108
109		{ TIBBatchMove }
110
111		constructor TIBBatchMove.Create(AOwner: TComponent);
112		begin
113		inherited Create(AOwner);
115	–	FIBLoaded := False;
116	–	CheckIBLoaded;
117	–	FIBLoaded := True;
114		FAbortOnKeyViol := True;
115		FAbortOnProblem := True;
116		FTransliterate := True;
#	Line 123 | Line 119 | end;
119
120		destructor TIBBatchMove.Destroy;
121		begin
122	<	if FIBLoaded then
123	<	FMappings.Free;
122	>	if FMappings <> nil then
123	>	FMappings.Free;
124		inherited Destroy;
125		end;
126

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines