File tree Expand file tree Collapse file tree 2 files changed +7
-0
lines changed
Expand file tree Collapse file tree 2 files changed +7
-0
lines changed Original file line number Diff line number Diff line change @@ -1214,9 +1214,11 @@ function ConvStr2Int(const ASource: TValue; ATarget: PTypeInfo; out AResult: TVa
12141214
12151215function ConvStr2Ord (const ASource: TValue; ATarget: PTypeInfo; out AResult: TValue): Boolean;
12161216begin
1217+ { $IFDEF DELPHI_XE6_UP}
12171218 if ATarget = System.TypeInfo(UInt64) then
12181219 AResult := TValue.FromOrdinal(ATarget, StrToUInt64Def(ASource.AsString, 0 ))
12191220 else
1221+ { $ENDIF}
12201222 AResult := TValue.FromOrdinal(ATarget, StrToInt64Def(ASource.AsString, 0 ));
12211223 Result := True;
12221224end ;
Original file line number Diff line number Diff line change 7474 { $DEFINE DELPHI_XE4_UP}
7575{ $IFEND}
7676
77+ { $IF CompilerVersion > 26.0} // XE6 up
78+ { $DEFINE DELPHI_XE6_UP}
79+ { $IFEND}
80+
81+
7782
7883{ $IF CompilerVersion > 28.0} // XE8 up
7984 { $DEFINE DELPHI_XE8_UP}
You can’t perform that action at this time.
0 commit comments