ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/client/FBAttachment.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/FBAttachment.pas (file contents):
Revision 117 by tony, Mon Jan 22 13:58:11 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 defined(CompilerVersion) and (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 + 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  
376   procedure TFBAttachment.SetParameters(SQLParams: ISQLParams;
377    params: array of const);

Diff Legend

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