List index out of bounds (10)

[marabu]

Nur um den thread an dieser Stelle sauber abzuschließen - Lucius verwaltet seine Daten in einer StringList (NewsList), deshalb muss der Code zum Laden der ListView so aussehen:

Delphi-Quellcode:

procedure TMainForm.LoadActionExecute(Sender: TObject);
begin
  with OpenDialog do
    If Execute then
    begin
      NewsList.LoadFromFile(FileName);
      ListItems.Count := NewsList.Count;
      ListView.Invalidate;
    end
end;

Grüße vom marabu