Is it correct fix like this:
- Code: Select all
String JsonMemberArraySensValue = JSONPair->JsonValue->ToString();
wchar_t FS = FormatSettings.DateSeparator;
try
{
FormatSettings.DecimalSeparator = '.';
double d = 0;
JsonMemberArraySensValue = StringReplace(JsonMemberArraySensValue, ",", ".",TReplaceFlags()<<rfReplaceAll<<rfIgnoreCase);
bool chek = TryStrToFloat(JsonMemberArraySensValue,d);
if(chek)
temperature = d;
}
__finally
{
FormatSettings.DateSeparator = FS;
}
No error now.