Indy 9
|
TIdCardPhoneNumber = class(TCollectionItem)
property Number: String;
property PhoneAttributes: TIdPhoneAttributes;
procedure Assign(Source: TPersistent); override;
When the current object and Source do not sahre the same ClassType, Assign calls the inherited Assign method.