Objekte kopieren

[Dawn87]

Hallo,

folgendes:

Delphi-Quellcode:

// "Pseudo"-Delphi

var Topics: array of Topic;

Topics[n] := Topic; // Topic = Prozedurparameter

Topic.Free;

ShowMessage(Topics[n].Caption); // <-- schutzverletzung

Bei diesem Code wird anscheinend im Array Topics nur eine Referenzierung auf das Objekt Topic gespeichert. Wie kann ich eine "richtige" Kopie darin ablegen, auf die auch noch nach Topic.Free zugreifen kann?

Grüße
Stefan

[CCRDude]

Erstmal: Klassennamen sollten das auch ausdrücken; TTopic wäre da sicherlich angebrachter.
Aber zur Frage: nur Du weißt, was in einem "Topic" drin ist, daher kannst eigentlich auch nur Du wissen, was genau kopiert werden soll. Prinzipiell:

Delphi-Quellcode:

NewTopic := TTopic.Create;
NewTopic.Assign(Topics[n]);

Assign musst Du dabei selber implementieren, schau mal in die Hilfe oder irgendeine RTL/VCL-Klasse dazu (unter Assign und TPersistent)...

[Dawn87]

Hallo,

danke für Deine Antwort. Ich habe mir mal was zurecht gebastelt, leider bekomme ich eine Schutzverletzung:

Delphi-Quellcode:

procedure TTopic.Assign(Source: TPersistent);
begin
  if Source is TTopic then
  begin
    Caption := TTopic(Source).Caption;
    ID := TTopic(Source).ID;
  end;

  //inherited;
end;

Erkennst Du einen Fheler im Code?

[mkinzler]

Ist TTopic auch ein Nachfahre von TPersistent

[Dawn87]

Ja, ist er!

Grüße
Stefan

[Muetze1]

Dann zeig mal ein wenig Code um den Assign() Aufruf drumherum, so wie du es jetzt gerade verwendest.