Hallo,

folgendes:

markieren

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

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:

markieren

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)...

Hallo,

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

markieren

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?

Ist TTopic auch ein Nachfahre von TPersistent

Ja, ist er!

Grüße
Stefan

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