Ich möchte gerne ein ganzes Objekt kopieren. Wie kann ich das? Hier im Beispiel wird schließlich nur mit b := p auf p verwiesen und keine Kopie erstellt?

zusammenfalten · markieren

Delphi-Quellcode:

type
  TVersuch = class
    a: string;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  b, p: TVersuch;
begin
  p := TVersuch.Create;
  b := TVersuch.Create;

    p.a := 'Hallo';
    b.a := 'Hoi';

    b := p; // Hier möchte ich, dass p nach b kopiert wird, und nicht auf p verweist.

    p.Free;
    showmessage(b.a);
    b.Free;
end;

Hi,

bei Nachfahren von TPersistent: Assign

...sofern in eigenen Klassen entsprechend erweitert (ein Cloneable oder Serializable, wie in Java, oder eine copy-Nachricht, die wie in Smalltalk als tiefe Kopie arbeitet, gibt es in Delphi standardmäßig leider nicht)