File tree Expand file tree Collapse file tree 1 file changed +4
-0
lines changed Expand file tree Collapse file tree 1 file changed +4
-0
lines changed Original file line number Diff line number Diff line change @@ -207,6 +207,7 @@ implementation
207207 System.Rtti,
208208 PyTools.Exception;
209209
210+ { $IFDEF VER340}
210211type
211212 // For backward compatibility
212213 TCustomAttributeClass = class of TCustomAttribute;
@@ -216,7 +217,9 @@ TRttiObjectHelper = class helper for TRttiObject
216217 function GetAttribute (AAttrClass: TCustomAttributeClass): TCustomAttribute; overload;
217218 function GetAttribute <T: TCustomAttribute>: T; overload; inline;
218219 end ;
220+ { $ENDIF VER340}
219221
222+ { $IFDEF VER340}
220223{ TRttiObjectHelper }
221224
222225function TRttiObjectHelper.GetAttribute (
@@ -234,6 +237,7 @@ function TRttiObjectHelper.GetAttribute<T>: T;
234237begin
235238 Result := T(GetAttribute(T));
236239end ;
240+ { $ENDIF VER340}
237241
238242{ RequestChannelAttribute }
239243
You can’t perform that action at this time.
0 commit comments