ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/client/FBAttachment.pas
(Generate patch)
# 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
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
334    end;
335   end;
336  
337 + {$IFDEF HASREQEX}
338   procedure TFBAttachment.DPBFromCreateSQL(CreateSQL: AnsiString);
339   var RegexObj: TRegExpr;
340   begin
# Line 357 | Line 363
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