[ListView] Virtueller Modus: Eintrag in OnData weglassen ?

[Nils_13]

Hi,

ich habe ein Array of <EigenerRecord>. Eine Variable die jeder Arrayeintrag hat ist "Visible". Wenn Visible auf False steht soll dieser Eintrag am Ende nicht angezeigt werden, ansonsten schon. Die Variable Visible hat ihren Sinn: Es gibt zwei verschiedene Arten von Daten im Array. Es soll am Ende möglich sein eine von den beiden Datenarten einfach aus- und einblenden zu können. Daher möchte ich das Array in eine ListView im virtuellen Modus (siehe OwnerData und OnData-Ereigniss) einfügen und dabei die Variable Visible beachten. Wenn ich nun allerdings den einen Datentyp ausblenden will, entsteht eine Lücke. Es wird eben nur ausgeblendet, aber in dem Sinne nicht in der ListView gelöscht - die Einträge schieben sich also nicht auf, sollen sie aber. Ist das auf diese Weise lösbar ? Das ist mein Ansatz, das auskommentierte Item.Delete war vollkommen erfolglos:

Delphi-Quellcode:

procedure TRazFileManager.LVData(Sender: TObject; Item: TListItem);
begin
  if DirsFiles[Item.Index].Visible then
  begin
    with Item do
    begin
      ...
    end;
  end;{ else
    Item.Delete;}
end;

Ich möchte eigentlich vermeiden zwei Arrays zu verwenden: Ein Array enthält alle unsichtbaren Einträge und liegt eventuell die ganze Zeit sinnlos im Speicher (auf der Platte liegt es aber nicht besser) und das andere hingegen die sichtbaren. Das zuletzt genannte würde dann von OnData verwendet werden. Komme ich drumherum zwei Arrays zu benutzen oder geht es nicht anders ?

[marabu]

Hallo Nils,

um bei einer virtuellen ListView den notwendigen schnellen "direkten" Datenzugriff gewähleisten zu können benötigst du genau ein Array für den Zugriff auf die sichtbaren Items. Das heißt aber nicht, dass du deshalb dein Daten-Array doppeln musst. Es genügt, wenn du eine Adressumsetzung pflegst. Das kann ein Integer-Array sein, welches dir die Abbildung Item.Index auf Daten[Index] erledigt, je nachdem welche Daten gerade selektiert sind und abhängig von deren gewünschter Ordnung.

Freundliche Grüße

[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! :thumb: