ViewVC Help

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

root/public/ibx/trunk/fbintf/client/FBAttachment.pas

Comparing ibx/trunk/fbintf/client/FBAttachment.pas (file contents):
Revision 117 by tony, Mon Jan 22 13:58:11 2018 UTC vs.
Revision 118 by tony, Mon Jan 22 13:58:14 2018 UTC

#	Line 27 | Line 27
27		unit FBAttachment;
28		{$IFDEF MSWINDOWS}
29		{$DEFINE WINDOWS}
30	+	{$IF CompilerVersion >= 28}
31	+	{Delphi XE7 onwards}}
32	+	{$define HASREQEX}
33	+	{$IFEND}
34		{$ENDIF}
35
36		{$IFDEF FPC}
37		{$mode delphi}
38		{$interfaces COM}
39	+	{$define HASREQEX}
40		{$ENDIF}
41
42		interface
#	Line 141 | Line 146 | public
146
147		implementation
148
149	<	uses FBMessages, FBTransaction, RegExpr;
149	>	uses FBMessages, FBTransaction {$IFDEF HASREQEX}, RegExpr{$ENDIF};
150
151		const
152		CharSetMap: array [0..69] of TCharsetMap = (
#	Line 329 | Line 334 | begin
334		end;
335		end;
336
337	+	{$IFDEF HASREQEX}
338		procedure TFBAttachment.DPBFromCreateSQL(CreateSQL: AnsiString);
339		var RegexObj: TRegExpr;
340		begin
#	Line 357 | Line 363 | begin
363		DPB.Add(isc_dpb_lc_ctype).AsString := GetCharSetName(FCharSetID);
364		DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(FSQLDialect);
365		end;
366	+	{$ELSE}
367	+	procedure TFBAttachment.DPBFromCreateSQL(CreateSQL: AnsiString);
368	+	end;
369	+	{$ENDIF}
370
371		procedure TFBAttachment.SetParameters(SQLParams: ISQLParams;
372		params: array of const);

Diff Legend

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