We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 5c8f8bb commit 822d573Copy full SHA for 822d573
Source/Base/Spring.pas
@@ -6246,9 +6246,16 @@ function ConvStr2Float(const source: TValue; target: PTypeInfo;
6246
function ConvStr2Ord(const source: TValue; target: PTypeInfo;
6247
out value: TValue; const formatSettings: TFormatSettings): Boolean;
6248
var
6249
+ s: string;
6250
i: Int64;
6251
begin
- Result := TryStrToInt64(source.AsString, i);
6252
+ s := source.AsString;
6253
+ Result := TryStrToInt64(s, i);
6254
+ if not Result and SameText(Trim(s), 'maxint') then
6255
+ begin
6256
+ Result := True;
6257
+ i := MaxInt;
6258
+ end;
6259
if Result then
6260
value := TValue.FromOrdinal(target, i);
6261
end;
0 commit comments