Как присвоить все значения полей одного класса, другому такому же классу 2Delphi , Компоненты и Классы , RTTIКак присвоить все значения полей одного класса, другому такому же классу 2Автор: Gokhan Ersumer procedure EqualClassProperties(AClass1, AClass2: TObject); var PropList: PPropList; ClassTypeInfo: PTypeInfo; ClassTypeData: PTypeData; i: integer; NumProps: Integer; APersistent: TPersistent; begin if AClass1.ClassInfo <> AClass2.ClassInfo then exit; ClassTypeInfo := AClass1.ClassInfo; ClassTypeData := GetTypeData(ClassTypeInfo); if ClassTypeData.PropCount <> 0 then begin GetMem(PropList, SizeOf(PPropInfo) * ClassTypeData.PropCount); try GetPropInfos(AClass1.ClassInfo, PropList); for i := 0 to ClassTypeData.PropCount - 1 do if not (PropList[i]^.PropType^.Kind = tkMethod) then {if Class1,2 is TControl/TWinControl on same form, its names must be unique} if PropList[i]^.Name <> 'Name' then if (PropList[i]^.PropType^.Kind = tkClass) then begin APersistent := TPersistent(GetObjectProp(AClass1, PropList[i]^.Name, TPersistent)); if APersistent <> nil then APersistent.Assign(TPersistent(GetObjectProp(AClass2, PropList[i]^.Name, TPersistent))) end else SetPropValue(AClass1, PropList[i]^.Name, GetPropValue(AClass2, PropList[i]^.Name)); finally FreeMem(PropList, SizeOf(PPropInfo) * ClassTypeData.PropCount); end; end; end; Note that this code skips object properties inherited other than TPersistent. Статья Как присвоить все значения полей одного класса, другому такому же классу 2 раздела Компоненты и Классы RTTI может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |