Добрый день, уважаемые.
Есть TObjectList который содержит объекты унаследованные от одного класса. Сериализация проходит нормально, а вот обратно получить объект не получается.
TAddressBase = class(TObject)
private
FCountry: String;
FCity: String;
public
property Country: String read FCountry write FCountry;
property City: String read FCity write FCity;
end;
TAddress1 = class(TAddressBase)
private
FStreet: String;
public
property Street: String read FStreet write FStreet;
end;
TAddress2 = class(TAddressBase)
private
FCode: String;
public
property Code: String read FCode write FCode;
end;
TAddrList = TObjectList<TAddressBase>;
{"Address":[{"Street":"Street","Country":"country1","City":"city1"},
{"Code":"code","Country":"country2","City":"city2"}]}
Если делать через FromJSON(AJson), то он создает, естественно, TAddressBase. Может кто работал с XSuperObject и сможет помочь с этим?