[ListView] Virtueller Modus: Eintrag in OnData weglassen ?

[Nils_13]

Hi,

Du meinst also, man sollte abgesehen von dem Hauptarray mit den Daten noch ein Array mit den Indizes der sichtbaren Einträge erzeugen ? Die Idee ist gut. Das habe ich auch gerade mal gemacht. Es gibt nun also die beiden Arrays DirsFiles (TDynItemArray) und DirsFilesIdx (TDynIntArray). Nur wie soll ich dann im OnData-Ereigniss der ListView klarmachen, dass sie nur Einträge für DirsFilesIdx erzeugen soll ? Ich dachte an so etwas, leider gibt es sofort eine Zugriffsverletzung, also lief irgendetwas mit den Indizes schief, ich denke aber es liegt nicht an den Daten von DirsFilesIdx sondern an folgender Zeile:

Delphi-Quellcode:

procedure TRazFileManager.LVData(Sender: TObject; Item: TListItem);
begin
  with Item do
  begin
    Caption := DirsFiles[DirsFilesIdx[Index]].Name; <--
    ...
  end;
end;

Hat sich erledigt. Ich liste standardmäßig irgendetwas auf und erst bei einem Klick auf einen Menüeintrag wird DirsFilesIdx befüllt. Wenn standardmäßig DirsFilesIdx leer ist, gibt es logischerweise eine Zugriffsverletzung. Hier mal der komplette funktionierende Code:

Delphi-Quellcode:

for i := 0 to High(DirsFiles) do
  if DirsFiles[i].ImageIndex <> ImgAL then
  begin
    SetLength(DirsFilesIdx, Succ(Length(DirsFilesIdx)));
    DirsFilesIdx[High(DirsFilesIdx)] := i;
  end;
LV.Items.Count := Length(DirsFilesIdx);
LV.Repaint;

Delphi-Quellcode:

procedure TRazFileManager.LVData(Sender: TObject; Item: TListItem);
begin
  with Item do
  begin
    if Length(DirsFilesIdx) > 0 then
    begin
      Caption := DirsFiles[DirsFilesIdx[Index]].Name;
      SubItems.Add(DirsFiles[DirsFilesIdx[Index]].Typ);
      if Pfad = 'root' then
        SubItems.Add(DirsFiles[DirsFilesIdx[Index]].Pfad);
      ImageIndex := DirsFiles[DirsFilesIdx[Index]].ImageIndex;
    end else
    begin
      Caption := DirsFiles[Index].Name;
      SubItems.Add(DirsFiles[Index].Typ);
      if Pfad = 'root' then
        SubItems.Add(DirsFiles[Index].Pfad);
      ImageIndex := DirsFiles[Index].ImageIndex;
    end;
  end;
end;

marabu: Deine Idee ist echt super! Die Geschwindigkeit ist in allen Verzeichnissen extrem schnell Vielen Dank!