Скопируйте поля данных объекта в экземпляр подкласса

У меня есть два класса, 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;

Ответы на вопрос(2)

Ваш ответ на вопрос