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!
