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 118 by tony, Mon Jan 22 13:58:14 2018 UTC vs.
Revision 120 by tony, Mon Jan 22 13:58:20 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}
30		{$ENDIF}
31
32		{$IFDEF FPC}
#	Line 365 | Line 361 | begin
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

Diff Legend

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