Array Access Violation

[DeluxXx]

Hab ein Problem mit dem Zugriff auf die Attribute in einem Array .

Delphi-Quellcode:

private
VideoItemlist : array of TVideoItem ;
//...
implementation
//..
procedure TForm1.btAddToArray(Sender: TObject);
begin
 for i:=0 to ... -1 do
  begin
    //einlesen der werte 
    //...
   setLength(VideoItemList,length(VideoItemList)+1) ; 
   // in array schreiben
    VideoItemList[I] := TVideoItem.Create(lvVideos,Titel,Description,Rating) ;
  end ;
end;
procedure TForm1.auslesen() ;
begin
  Statusbar.Panels[0].Text := VideoItemList[0].getUrl ;
end;

end;

wenn ich jetzt versuche innerhalb der Methode btAddToArray auf das Item im Array zuzugreifen
klappt das Wunderbar . Jedoch nicht mehr in der Methode auslesen , ich versuche aber nicht auf ein Item zuzugreifen das nicht existiert (per länge des arrays überprüft). Kann es sein das der Speicher jedes mal freigegeben wird sobald ein neues Item hinzugefügt wurde ?
Edit hier noch das meiste von der Klasse TVideoItem

Delphi-Quellcode:

type TVideoItem = class
  private
    ltitel : String ;
    lRating : String ;
    lDescription : String ;
    lUrl : String ;
    lThumbnails : TThumbnaillist;
    lListItemIndex : Integer ;
  public
    property titel : String read ltitel write ltitel ;
    property Description : String read lDescription write lDescription ;
    property Url : String read lUrl write lUrl ;
    property Thumbnails : TThumbnaillist read lThumbnails write lThumbnails;
    property Rating : String read lRating write lRating ;
    function getUrl(): String ;
  published
    Constructor Create(listview : TListview;myTitel,myDescription : String;myRating : String);
  end;

implementation

 Constructor TVideoItem.Create(listview : TListview;myTitel,myDescription : String;myRating : String);
 var
 ListItem : TListItem ;
 begin
    lListItemIndex := listview.Items.Count ;
    Listitem := listview.Items.Add ;
    ListItem.Caption := '' ;
    Listitem.SubItems.Add(myRating) ;
    self.Rating := myRating ;
    ListItem.Subitems.Add(myTitel) ;
    self.titel := Titel ;
    ListItem.Subitems.Add(myDescription) ;
    self.Description := myDescription ;
 end;

[SirThornberry]

um dir zu antworten sehe ich zu wenig vom Quelltext. Allerdings sehe ich hier was völlig unnötiges:

Delphi-Quellcode:

setLength(VideoItemList,length(VideoItemList)+1) ;

Warum machst du sowas in der Schleife? Setzte das Array vor der Schleife gleich auf die richtige Größe um so die fragmentierung des Speichers zu vermeiden und auch das Programm nicht unnötig auszubremsen.

[DeluxXx]

Danke, da hast du natürlich Recht. Hab jetzt noch die Klasse TVideoItem gepostet vllt. hilft das ja weiter .

[semo]

versuche dich einmal daran deine klasse ohne listview zu verwalten.
die daten sind die eine seite, die darstellung die andere.
so könntest du deine videoitems zum beispiel auch anders verarbeiten, zum beispiel mit einem treeview, etc...

[DeluxXx]

Danke wobei ich das ja gar nicht machen kan,n da ja wenn ich aus einer anderen Methode versuch drauf zuzugreifen ich die Access Violation krieg .
:wall: Hm so problem ist gelöst die Array elemente auf die ich versucht hab zuzugreifen haben doch nicht existiert ... hing mit der If abfrage in der schleife zusammen ...

[SirThornberry]

du meinst sicher die if-Abfrage welche du uns verschwiegen hast ;-)