Listenindex überschreitet das Maximum

**DSign**

Hallo!
Ich habe ein Problem mit der ListView-Komponente. Ich möchte Daten aus einer ListView im Report-Style mit 2 Colums mit dem folgenden Code in ein Memo-Feld einfügen:

zusammenfalten · markieren

Delphi-Quellcode:

			 Memo1.Lines.Add('  SetOutPath $INSTDIR');

 CurrentDir := ListView1.Items.Item[0].Caption;

 for I2:=0 to ListView1.Items.Count-1 do

  begin

   if ListView1.Items.Item[I2].Caption = CurrentDir then

    begin

     Memo1.Lines.Add('  File "'+ListView1.Items.Item[I2].Caption+ListView1.Items.Item[I2].SubItems.Strings[I2]);

    end

    else begin

     NewDir := StringReplace(ListView1.Items.Item[I2].Caption,CurrentDir,'',[rfReplaceAll]);

     Memo1.Lines.Add('  SetOutPath $INSTDIR\'+NewDir);

     CurrentDir := NewDir;

     Memo1.Lines.Add('  File "'+ListView1.Items.Item[I2].Caption+'\'+ListView1.Items.Item[I2].SubItems.Strings[I2]);

    end;

  end;

Nun bekomme ich aber immer den Fehler 'Listenindex überschreitet das Maximum (1)' Ich weiß aber nicht woran das liegt.
Ich hoffe, dass mir helfen kann. Vielen Dank schon einmal für eure Hilfe!

DSign

Listenindex überschreitet das Maximum

Listenindex überschreitet das Maximum

Forumregeln