Kopie eines Klassenobjekts erstellen

[DieDolly]

Verstanden was du da gerade geschrieben hast, habe ich leider nicht

Stellen 100 Properties denn ein Problem dar?

Speicherverbrauch meiner Anwendung mit und ohne Klassenobjekten im Detail
mit 0 Klassenobjekten bei Programmstart 9,2 MB
mit 70 Klassenobjekten 10,7 MB.

[Stevie]

Meine Aussage bezog sich auf den Post von QuickAndDirty zuvor

[Andreas L.]

Ich mach es z. B. so:

Delphi-Quellcode:

  TtoTreeNodeAttribute = class(TtoCollectionItem)
  private
    FData: TtoData;
    FName: String;
    ...
  protected
    procedure SetName(Value: String);
    procedure SetData(Value: TtoData);
    ...
  public
    ...
    procedure AssignTo(Dest: TPersistent); override;
  published
    property Name: String read FName write SetName;
    property Data: TtoData read FData write SetData;
    ...
  end;

...

procedure TtoTreeNodeAttribute.AssignTo(Dest: TPersistent);
var
  DestObj: TtoTreeNodeAttribute;
begin
  inherited AssignTo(Dest); 
  if Dest is TtoTreeNodeAttribute then
  begin
    DestObj := TtoTreeNodeAttribute(Dest);
    DestObj.BeginUpdate;
    try
      DestObj.FData.Assign(FData);
      DestObj.FName := FName;
      ...
    finally
      DestObj.EndUpdate;
    end;
  end;
end;

procedure TtoTreeNodeAttribute.SetName(Value: String);
begin
  if (FName <> Value) and (Value <> '') then
    FName := Value;
end;

procedure TtoTreeNodeAttribute.SetData(Value: TtoData);
begin
  FData.Assign(Value);
end;

...

Anmerkung: Die Methoden BeginUpdate() und EndUpdate() habe ich selbst implementiert weil es sie in in TPersistent nicht gibt. (Delphi 2009)

[DieDolly]

Delphi-Quellcode:

DestObj.FData.Assign(FData);
DestObj.FName := FName;

Bei ein paar Properties kein Problem. Bei alles über 50 aufwendig und doppelter Aufwand, wenn irgendwas geändert werden muss. Mal von der Gefahr abgesehen, wenn man vergisst AssignTo ebenfalls zu erweitern wenn man die Klasse erweitert.