Wieso kann man Listenelemente nicht kopieren?

[wonnebeekiwi]

Wieso kann man Listenelemente nicht kopieren?
Ich versuche ein Element aus einer Liste zu kopieren. Wenn ich die kopie veränder, ändert sich das orginal selbst.
Hier mal im extrem Fall:

Delphi-Quellcode:

procedure TElement.xy;
var Kopie: TElement;
begin
  Kopie := Self;
  Kopie.Free;
end;

Das Element ist gelöscht!!!
Das stellt mich echt vor Probleme. Kann mir jemand schlaueres eine Anregung geben, wie ich mit dem Problem fertig werde?
Grüße

[Satty67]

Du kopierst nur den Zeiger auf das Element und greifst damit immer auf das gleiche Element zu. Also nix mit kopiert (vom Zeiger abgesehen).

ganz allgemein:

Delphi-Quellcode:

Kopie.Create
Kopie.Assign(self)

Wobei darin enthaltene Objekte durch den Destruktor wohl auch freigegeben werden. Kommt jetzt darauf an, was TElement genau für eine Klasse ist.

[wonnebeekiwi]

Danke erstmal ;).
Ich kann die Assign Methode nicht nutzen. Delphi zeigt den Fehler: Unbekannterbezeichner an.
TElement ist von der Klasse TObject (TElement = class(TObject)).
Das mit dem Zeiger hört sich sehr sinnvoll an. Die Delphi Hilfe sagt,ich könne die Assign Methode nur für TCollection nutzen. Wie soll ich das machen?

[Andreas L.]

Zitat von wonnebeekiwi:

Danke erstmal .
Ich kann die Assign Methode nicht nutzen. Delphi zeigt den Fehler: Unbekannterbezeichner an.
TElement ist von der Klasse TObject (TElement = class(TObject)).
Das mit dem Zeiger hört sich sehr sinnvoll an. Die Delphi Hilfe sagt,ich könne die Assign Methode nur für TCollection nutzen. Wie soll ich das machen?

Leite TElement von TPersistent ab.

[wonnebeekiwi]

Muss ich die Klasse umdefinieren?
...Das habe ich gerade probiert: TElement=class(TPersistent).
Der Rechner kennt aber kein TPersistent.
Habe ich was falsch verstanden?

[Satty67]

uses classes eingetragen?

die OH sollte TPersistent aber finden und dort steht (zumindest bei D5) auch die evtl. zu verwendende Unit

[xZise]

TPersistent liegt (wenn ich mich richtig erinnere) in der Unit "Classes". Das heißt du musst diese Unit einbinden.

Und als zweites musst du die Methode "Assign" bzw "AssignTo" überschreiben, damit Delphi auch weiß, was den für Daten übernommen werden müssen. Mal ein kleines Beispiel:

Delphi-Quellcode:

type
  TAssignBeispiel = class(TPersistent)
  private
    FEineZahl : Integer;

    procedure AssignTo(Dest: TPersistent);
  public
    property EineZahl : Integer read FEineZahl write FEineZahl;

    procedure Assign(Source: TPersistent); override;
  end;

[...]

procedure TAssignBeispiel.AssignTo(Dest: TPersistent);
begin
  if Dest is TAssignBeispiel then
    TAssignBeispiel(Dest).FEineZahl := Self.FEineZahl
  else
    inherited;
end;

procedure TAssignBeispiel.Assign(Source: TPersistent);
begin
  if Source is TAssignBeispiel then
    Self.FEineZahl := TAssignBeispiel(Source).FEineZahl
  else
    inherited;
end;

MfG
xZise

PS: Mist da war jemand schneller...

[edit]AssignTo + else-Zweig(e)[/edit]

[jbg]

Zitat von Andreas L.:

Leite TElement von TPersistent ab.

Das reicht nicht. Er muss auch noch die Assign-Methode für TElement umschreiben, denn sonst kommt nur "TElement kann nicht zu TElement zugewiesen werden".

[wonnebeekiwi]

Ich Idiot habe natürlich die uses deklaration vergessen.:wall:
Zeigt keine Fehler mehr an.... muss das Programm aber nochmal überarbeiten weil ich jetzt Errors habe.
Da kommt tatsächlich: "TElement kann nicht zu TElement zugewiesen werden".

[xZise]

Naja wie gesagt Assign überschreiben (AssignTo ist imho nur optional)

Zitat von xZise:

[...]Und als zweites musst du die Methode "Assign" bzw "AssignTo" überschreiben, damit Delphi auch weiß, was den für Daten übernommen werden müssen. Mal ein kleines Beispiel:

Delphi-Quellcode:

type
  TAssignBeispiel = class(TPersistent)
  private
    FEineZahl : Integer;

    procedure AssignTo(Dest: TPersistent);
  public
    property EineZahl : Integer read FEineZahl write FEineZahl;

    procedure Assign(Source: TPersistent); override;
  end;

[...]

procedure TAssignBeispiel.AssignTo(Dest: TPersistent);
begin
  if Dest is TAssignBeispiel then
    TAssignBeispiel(Dest).FEineZahl := Self.FEineZahl
  else
    inherited;
end;

procedure TAssignBeispiel.Assign(Source: TPersistent);
begin
  if Source is TAssignBeispiel then
    Self.FEineZahl := TAssignBeispiel(Source).FEineZahl
  else
    inherited;
end;

[...]

Wenn Source oder Dest nicht ein Objekt die von TAssignBeispiel oder dessen Nachfahren abgeleitet ist, wird die standardmethode (die von Persistent) aufgerufen die einen Fehler verursachen wird. Somit bist du eigentlich immer auf der sicheren Seite

MfG
xZise