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 119 by tony, Mon Jan 22 13:58:18 2018 UTC

#	Line 27 | Line 27
27		unit FBAttachment;
28		{$IFDEF MSWINDOWS}
29		{$DEFINE WINDOWS}
30	<	{$IF CompilerVersion >= 28}
30	>	{$IF defined(CompilerVersion) and (CompilerVersion >= 28)}
31		{Delphi XE7 onwards}}
32		{$define HASREQEX}
33		{$IFEND}
#	Line 365 | Line 365 | begin
365		end;
366		{$ELSE}
367		procedure TFBAttachment.DPBFromCreateSQL(CreateSQL: AnsiString);
368	+	begin
369	+	FDPB := FFirebirdAPI.AllocateDPB;
370	+	if FCharSetID > 0 then
371	+	DPB.Add(isc_dpb_lc_ctype).AsString := GetCharSetName(FCharSetID);
372	+	DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(FSQLDialect);
373		end;
374		{$ENDIF}
375

Diff Legend

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