Objekt in Array kopieren und anschließend freigeben

[blackdrake]

Hallo.

Ich würde es vorziehen, die TSubmissionObjectList zu modifizieren, sodass sie neue Objekte dupliziert und man somit eine unabhängige Liste erzeugen kann. Dann müsste ich mich nur 1 Mal direkt in der TSubmissionObjectList um diese Angelegenheit kümmern, anstelle jede Funktion umzuschreiben, die mit TSubmissionObjectList arbeiten. Ist doch korrekt so, oder?

Ich habe jetzt folgendermaßen geändert:

Delphi-Quellcode:

type
  TSubmission = class(TPersistent)
  public
    Tags: string;
    Rating: string;
    Score: integer;
    PictureNumber: integer;
    MD5: string;
    procedure Assign(Source: TPersistent); override;
  end;

procedure TSubmission.Assign(Source: TPersistent);
begin
  inherited; // Was soll ich hier machen?
end;

function TSubmissionObjectList.Add(Objekt: TSubmission): Integer;
var
  Duplikat: TSubmission;
begin
  Duplikat:= TSubmission.Create;
  Duplikat.Assign(Objekt);
  Result := inherited Add(Duplikat);
end;

Fehlermeldung: 'TSubmission kann nicht zu TSubmission zugewiesen werden'.

Du schriebst, dass ich Assign() überschreiben müsste. Was muss ich denn genau am Code ändern, sodass Assign an mein TSubmission angepasst wird? Der Sourcecode von TPersistent.Assign() hat mir irgendwie nicht die geistige Erleuchtung gebracht.

-- Zu deinem Nachtrag: Ich werde das mit dem Interface gleich mal in einem zweiten Testprojekt ausprobieren.

Gruß
blackdrake