Скопируйте поля данных объекта в экземпляр подкласса
У меня есть два класса, TNode и TMaster. Я подклассифицировал TMaster от TNode.
Цель состоит в том, чтобы создать экземпляр TMaster, который содержит все данные ранее созданного экземпляра TNode. Есть ли какой-нибудь «встроенный» метод для достижения этого или это нужно делать вручную?
type
Tnode = class(TObject)
private
FSite: TSite;
FhndNode: THandle;
FnodeID: word;
FslaveID: longword;
FcoordX: double;
FcoordY: double;
FhndSubRect: THandle;
FdNodes: TdNodes;
Fdestinations: Tdestinations;
FGroup: byte;
FDomain: byte;
FRFsense: byte;
FComm: byte;
FlcIDtextHnd: THandle;
...
public
constructor create();
...
end;
TMaster = class(TNode);
private
FName: string;
FIP: string;
FMAC: string;
public
constructor create( aHandle: HWND; aName, aIP, aMAC: string );
procedure MSG_SETCONFIG( aNode: TNode; aSwitch: integer );
property Name: string read FName write FName;
property IP: string read FIP write FIP;
property MAC: string read FMAC write FMAC;
end;