Objekt in Array kopieren und anschließend freigeben

[blackdrake]

Hallo.

Danke für eure Antworten.

Ich habe jetzt den Array entfernt und durch eine abgeleitete Objektliste ersetzt. Jetzt erhalte ich eine AV, die ich absolut nicht verstehe.

Wenn ich mit die Objektliste x befülle und freigebe, funktioniert alles.

Gebe ich die Objektliste x in eine Funktion, die eine zweite Liste y erstellt, kommt eine AV bei Freigabe von x:

Delphi-Quellcode:

function MachWas(Input: TSubmissionObjectList): TSubmissionObjectList;
var
  i: integer;
begin
  result := TSubmissionObjectList.Create;

  for i := 0 to Input.Count - 1 do
  begin
    if odd(i) then
    begin
      result.Add(Input.Items[i]);
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  x, y: TSubmissionObjectList;
  sub: TSubmission;
  i: integer;
begin
  x := TSubmissionObjectList.Create;
  try
    for i := 0 to 100 do
    begin
      sub := TSubmission.Create;
      sub.MD5 := 'Test'+IntToStr(i);
      x.Add(sub);
    end;

    // Ist dieser Abschnitt auskommentiert, keine AV bei x.Free;
    y := MachWas(x);
    try

    finally
      y.Free;
    end;

  finally
    x.Free; // AccessViolation durch y.Free!
  end;
end;

Zur schnellen Rekonstruktion noch folgender Zusatzcode mit Deklarationen:

Delphi-Quellcode:

type
  TSubmission = class(TObject)
    Tags: string;
    Rating: string;
    Score: integer;
    PictureNumber: integer;
    MD5: string;
  end;

  TSubmissionObjectList = class(TObjectList)
  protected
    function getItem(Index: Integer): TSubmission; virtual;
    procedure setItem(Index: Integer; Objekt: TSubmission); virtual;
  public
    function Add(Objekt: TSubmission): Integer; virtual;
    function Remove(Objekt: TSubmission): Integer; virtual;
    function IndexOf(Objekt: TSubmission): Integer; virtual;
    procedure Insert(Index: Integer; Objekt: TSubmission); virtual;
    function First: TSubmission; virtual;
    function Last: TSubmission; virtual;
    property Items[index: Integer]: TSubmission read getItem write setItem; default;
  end;

function TSubmissionObjectList.getItem(Index: Integer): TSubmission;
begin
  Result := TSubmission(inherited Items[Index]);
end;

procedure TSubmissionObjectList.setItem(Index: Integer; Objekt: TSubmission);
begin
  inherited Items[Index] := Objekt;
end;

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

function TSubmissionObjectList.First: TSubmission;
begin
  Result := TSubmission(inherited First());
end;

function TSubmissionObjectList.IndexOf(Objekt: TSubmission): Integer;
begin
  Result := inherited IndexOf(Objekt);
end;

procedure TSubmissionObjectList.Insert(Index: Integer; Objekt: TSubmission);
begin
  inherited Insert(Index, Objekt);
end;

function TSubmissionObjectList.Last: TSubmission;
begin
  Result := TSubmission(inherited Last());
end;

function TSubmissionObjectList.Remove(Objekt: TSubmission): Integer;
begin
  Result := inherited Remove(Objekt);
end;

Ich befürchte, das hat wieder was damit zu tun, da Objekte nur referenziert und nicht kopiert werden. Ich weiß irgendwie nicht mehr weiter

Gruß
blackdrake