ViewVC Help

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

root/public/ibx/trunk/runtime/nongui/IBTable.pas

Comparing ibx/trunk/runtime/nongui/IBTable.pas (file contents):
Revision 312 by tony, Tue Aug 25 15:40:58 2020 UTC vs.
Revision 380 by tony, Mon Jan 10 10:13:17 2022 UTC

#	Line 39 | Line 39 | unit IBTable;
39
40		interface
41
42	<	uses SysUtils, Classes, DB, IB,  IBCustomDataSet,
43	<	IBSQL, IBUtils;
42	>	uses SysUtils, Classes, DB, IB,  IBCustomDataSet, IBDatabase, IBSQL, IBUtils;
43
44		type
45
#	Line 188 | Line 187 | type
187
188		implementation
189
190	<	uses IBMessages, IBTypes;
190	>	uses IBMessages, IBInternals;
191
192		type
193
#	Line 197 | Line 196 | type
196		TIBMasterDataLink = class(TMasterDataLink)
197		private
198		FDelayTimerValue: integer;
199	<	FTimer: TIBTimerInf;
199	>	FTimer: IIBTimerInf;
200		procedure HandleRefreshTimer(Sender: TObject);
201		procedure SetDelayTimerValue(AValue: integer);
202		protected
#	Line 863 | Line 862 | var
862		FieldList := FieldList +
863		QuoteIdentifier(DataBase.SQLDialect, Name) +
864		' BLOB SUB_TYPE 0'; {do not localize}
865	+	ftFmtBCD:
866	+	if Database.Attachment.HasDecFloatSupport then
867	+	FieldList := FieldList +
868	+	QuoteIdentifier(DataBase.SQLDialect, Name) +
869	+	' Decfloat(34)' {do not localize}
870	+	else
871	+	IBError(ibxeFieldUnsupportedType,[nil]);
872		ftUnknown, ftADT, ftArray, ftReference, ftDataSet,
873		ftCursor, ftWideString, ftAutoInc:
874		IBError(ibxeFieldUnsupportedType,[nil]);
#	Line 959 | Line 965 | begin
965		if Active then
966		begin
967		ClearBuffers;
968	+	ResetBufferCache;
969		DataEvent(deDataSetChange, 0);
970		end;
971		finally

Comparing ibx/trunk/runtime/nongui/IBTable.pas (property svn:eol-style):
Revision 312 by tony, Tue Aug 25 15:40:58 2020 UTC vs.
Revision 380 by tony, Mon Jan 10 10:13:17 2022 UTC

#	Line 0 | Line 1
1	+	native

Diff Legend

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