ViewVC Help

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

root/public/ibx/branches/udr/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 120 by tony, Mon Jan 22 13:58:20 2018 UTC

#	Line 32 | Line 32 | unit FBAttachment;
32		{$IFDEF FPC}
33		{$mode delphi}
34		{$interfaces COM}
35	+	{$define HASREQEX}
36		{$ENDIF}
37
38		interface
#	Line 141 | Line 142 | public
142
143		implementation
144
145	<	uses FBMessages, FBTransaction, RegExpr;
145	>	uses FBMessages, FBTransaction {$IFDEF HASREQEX}, RegExpr{$ENDIF};
146
147		const
148		CharSetMap: array [0..69] of TCharsetMap = (
#	Line 329 | Line 330 | begin
330		end;
331		end;
332
333	+	{$IFDEF HASREQEX}
334		procedure TFBAttachment.DPBFromCreateSQL(CreateSQL: AnsiString);
335		var RegexObj: TRegExpr;
336		begin
#	Line 357 | Line 359 | begin
359		DPB.Add(isc_dpb_lc_ctype).AsString := GetCharSetName(FCharSetID);
360		DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(FSQLDialect);
361		end;
362	+	{$ELSE}
363	+	procedure TFBAttachment.DPBFromCreateSQL(CreateSQL: AnsiString);
364	+	begin
365	+	FDPB := FFirebirdAPI.AllocateDPB;
366	+	if FCharSetID > 0 then
367	+	DPB.Add(isc_dpb_lc_ctype).AsString := GetCharSetName(FCharSetID);
368	+	DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(FSQLDialect);
369	+	end;
370	+	{$ENDIF}
371
372		procedure TFBAttachment.SetParameters(SQLParams: ISQLParams;
373		params: array of const);

Diff Legend

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