Actual code, not working:
class procedure TSerializeParse.WriteRecordEx(var Rec: T; IData: ISuperObject);
begin
with TValue.From(Rec) do
WriteRecord(TypeInfo, GetReferenceToRawData, IData);
end;
My code, working:
class procedure TSerializeParse.WriteRecordEx(var Rec: T; IData: ISuperObject);
begin
with TValue.From(Rec) do
WriteRecord(TypeInfo, @Rec, IData);
end;
Actual code, not working: class procedure TSerializeParse.WriteRecordEx(var Rec: T; IData: ISuperObject);
begin
with TValue.From(Rec) do
WriteRecord(TypeInfo, GetReferenceToRawData, IData);
end;
My code, working: class procedure TSerializeParse.WriteRecordEx(var Rec: T; IData: ISuperObject);
begin
with TValue.From(Rec) do
WriteRecord(TypeInfo, @Rec, IData);
end;