Probleme mit Listbox Einträgen

[DeddyH]

Ich korrigier das mal so, wie ich mir denke, dass es stimmen sollte:

Delphi-Quellcode:

      if Form2.ListBox1.ItemIndex >= 0 then
      begin //wichtig!
         lIndex := Length(MeinArray); //erstmal ermitteln 
         SetLength(MeinArray, lIndex + 1);
         MeinArray[lIndex].RealFileName := Form2.OpenDialog1.FileName;
         MeinArray[lIndex].DisplayName := Form4.Edit1.Text;
         //lIndex := Form2.ListBox1.ItemIndex; wozu?
         Form2.ListBox1.Items.Add(MeinArray[lIndex].DisplayName);
      end;