Manière correcte de dupliquer l'objet Delphi

Quels sont les avantages et les inconvénients de la duplication d'une instance d'objet avec un constructeur ou une fonction d'instance?

Exemple:

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;

Exemple 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;

Une différence majeure vient immédiatement à l'esprit - dans ce dernier cas, le constructeur Create devrait être virtuel afin qu'une hiérarchie de classes supportant le Clone puisse être construite en se basant sur le TMyObject.

Supposons que ce n'est pas un problème - que TMyObject et tout ce qui en est basé est entièrement sous mon contrôle. Quelle est votre façon préférée de faire copy constructor dans Delphi? Quelle version trouvez-vous la plus lisible? Quand utiliseriez-vous l'ancienne ou la dernière approche? Discuter. :)

Modifier: Ma principale préoccupation avec le premier exemple est que l'utilisation est très lourde par rapport à la deuxième approche, c'est-à-dire

newObj := TMyObject.Create(oldObj)

Vs.

newObj := oldObj.Clone;

EDIT2 ou "pourquoi je veux une opération sur une seule ligne"

Je conviens que L'affectation est une approche raisonnable dans la plupart des cas. Il est même raisonnable d'implémenter 'copy constructor' en interne en utilisant simplement attribuer.

Je crée généralement de telles copies lors du multithreading et du passage d'objets dans la file d'attente des messages. Si la création d'objet est rapide, je passe généralement une copie de l'objet d'origine car cela simplifie vraiment les problèmes de propriété de l'objet.

IOW, je préfère écrire

Send(TMyObject.Create(obj));

Ou

Send(obj.Clone);

À

newObj := TMyObject.Create;
newObj.Assign(obj);
Send(newObj);