AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Objekt in Array kopieren und anschließend freigeben
Thema durchsuchen
Ansicht
Themen-Optionen

Objekt in Array kopieren und anschließend freigeben

Ein Thema von blackdrake · begonnen am 30. Aug 2008 · letzter Beitrag vom 1. Sep 2008
 
blackdrake

Registriert seit: 21. Aug 2003
Ort: Bammental
618 Beiträge
 
Delphi 10.3 Rio
 
#14

Re: Objekt in Array kopieren und anschließend freigeben

  Alt 31. Aug 2008, 13:02
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
Daniel Marschall
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:23 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz