Invalid implementation of TROXMLStreamer.SerializeSimpleType for set properties

Data Abstract
1

Current implementation of the method serializes with the same code variant and set properties which is wrong.

The code

tkVariant, tkSet: begin
  aTargetNode.Value := GetVariantProp(anObject, lName);
end;

should be modified to:

tkVariant: begin
  aTargetNode.Value := GetVariantProp(anObject, lName);
end;

tkSet: begin
   aTargetNode.Value := GetSetProp(anObject, lName);
end;
2

Thanks, logged as bugs://81265

3

bugs://81265 got closed with status fixed.