Objekt kopieren?

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;

Objekt kopieren?

Objekt kopieren?

Forumregeln