Delphi-Quellcode:
type
TMyClass = class
[ ListAttribute('SubPositions', TPositionInformation) ]
property SubPositions : TObjectList<TPositionInformation> read FSubPositions write FSubPositions;
[ ListAttribute('DatabaseVersions', TDatabaseVersion) ]
property DatabaseVersions : TObjectList<TDatabaseVersion> read FDatabaseVersions write FDatabaseVersions;
[ ListAttribute('ProductionUnits', TProductionUnit) ]
property ProductionUnits : TObjectList<TProductionUnit> read FProductionUnits write FProductionUnits;
[ ListAttribute('Segments', TPositionSegment) ]
property Segments : TObjectList<TPositionSegment> read fSegments write FSegments;
end;
Wobei man hier uch wieder von doppelten Informationen reden könnte.
TagName entpsricht ja dem Property-Namen, so daß man diesen Namen doch auch direkt verwenden könnte?
OK, an die Klasse in dem Generic ranzukommen ist nicht so einfach, aber Möglich wäre es bestimmt auch.
