Correção de erro "Error: Can't determine which overloaded function to…

… call"no Lazarus.
viniciussanchez · Feb 23, 2022 · 6338088 · 6338088
1 parent 062a2cc
commit 6338088
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/DataSet.Serialize.Import.pas b/src/DataSet.Serialize.Import.pas
@@ -366,15 +366,15 @@ procedure TJSONSerialize.JSONObjectToDataSet(const AJSONObject: TJSONObject; con
             begin
               if LJsonValue.InheritsFrom(TJSONNumber) then
                 LTryStrToDateTime := StrToFloatDef(LJSONValue.Value, 0)
-              else if not TryStrToDateTime(LJSONValue.Value, LTryStrToDateTime) then
+              else if not TryStrToDateTime(VarToStr(LJSONValue.Value), LTryStrToDateTime) then
                 LTryStrToDateTime := ISO8601ToDate(LJSONValue.Value, TDataSetSerializeConfig.GetInstance.DateInputIsUTC);
               LField.AsDateTime := DateOf(LTryStrToDateTime);
             end;
           TFieldType.ftTimeStamp, TFieldType.ftDateTime:
             begin
               if LJSONValue.InheritsFrom(TJSONNumber) then
                 LTryStrToDateTime := StrToFloatDef(LJSONValue.Value, 0)
-              else if not TryStrToDateTime(LJSONValue.Value, LTryStrToDateTime) then
+              else if not TryStrToDateTime(VarToStr(LJSONValue.Value), LTryStrToDateTime) then
                 LTryStrToDateTime := ISO8601ToDate(LJSONValue.Value, TDataSetSerializeConfig.GetInstance.DateInputIsUTC);
               LField.AsDateTime := LTryStrToDateTime;
             end;