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