Json Serializer raises exception with TList< TObject descendant >

[Zeni_Tassi_Antonio_Carlos]

Hello..

  TTest = class
  private
    FId: integer;
  end;
  
  TMain = class
  private
    FDI: TList<TTest>;
  end;

and try to serialize as follow

  var X := TMain.Create;
  X.FDI := TList<TTest>.Create;
  
  VAR A := TTest.Create;
  A.FId := 1;
  X.FDI.Add(A);

  var ser :=  TJson.Serialize(X);

then I will get an Exception: "'Could not find JSON converter for type "Pointer"'
the problem the class TTest. If i change the data type of list to TList .. then the seralization is successful. By the same way if I change TList for a simple Array, also is successful.

[wlandgraf (Wagner Landgraf)]

It works fine here. Can you please send a project reproducing the issue?

[Zeni_Tassi_Antonio_Carlos]

Archive.zip (6.4 KB)

[Zeni_Tassi_Antonio_Carlos]

[wlandgraf (Wagner Landgraf)]

Delphi doesn't generate correct RTTI to classes declared in the .dpr file.
Please try to move TTest and TMain classes to a separated unit.

[Zeni_Tassi_Antonio_Carlos]

Yes!! I forgot that! I will try again, must be it. Sorry for the inconvenience.