正确的方式来复制Delphi对象

示例A：

type
  TMyObject = class
  strict private
    FField: integer; 
  public
    constructor Create(srcObj: TMyObject); overload; 
    //alternatively:
    //constructor CreateFrom(srcObj: TMyObject);
    property Field: integer read FField;
  end;

constructor TMyObject.Create(srcObj: TMyObject);
begin
  inherited Create;
  FField := srcObj.Field;
end;

实施例B：

type
  TMyObject = class
  strict private
    FField: integer; 
  public
    function Clone: TMyObject;
    property Field: integer read FField;
  end;

function TMyObject.Clone: TMyObject;
begin
  Result := TMyObject.Create;
  Result.FField := FField;
end;

一个主要的不同之处在于： – 在后一种情况下，Create构造函数必须是虚拟的，以便支持克隆的类层次可以基于TMyObject构建。

假设这不是一个问题 – TMyObject和基于它的一切完全在我的控制之下。你在Delphi中做首选的构造函数是什么？你发现哪个版本更易阅读？你什么时候使用前者或后一种方法？讨论。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!