Objekte kopieren

Mortal-Shadow · Beiträge: 110

Hi,

ich wollte wissen, ob es möglich ist eine Kopie eines Objektes herzustellen.
Das neue Objekt soll die gleichen Variablen-inhalte wie das erste haben, aber von diesem unabhängig sein danach.
Also irgendwie sowas:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

var
Objekt1, Objekt2 : TMeinObjekt;
begin
Objekt1 := TMeinObjekt.Create(Paramter)
//Tue etwas mit Objekt1
Objekt2 := Copy(Objekt1);
end;

jaenicke · Verfasst: Mo 16.11.09 00:16

Dafür genügt es dein Objekt von TPersistent abzuleiten und die Methode AssignTo zu überschreiben:

markieren

Delphi-Quelltext

1:
2:

  protected
    procedure AssignTo(Dest: TPersistent); override;

Dort müssen dann die Daten des eigenen Objekts an das übergebene (Dest) übertragen werden.
Danach kannst du dann wie bei Objekten von Delphi (z.B. TFont) mit Assign die Daten an ein anderes übergeben.

Alternativ kannst du auch selbst entsprechende Methoden zum direkten Klonen oder Zuweisen ohne TPersistent basteln, aber manuell musst du es jedenfalls machen. Theoretisch könnte man auch mit RTTI arbeiten, das würde ich aber in keinem Fall empfehlen, das gibt nur Probleme, wenn dann etwas schief geht.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme