Listview sortieren: Makevisible(False)

[lucius]

Hallo Leute,
Ich probiere eine Art Sortierung fuer meine Listview zu bauen.
In der 3ten Spalte stehen die Werte wonach geguckt werden soll.
Die Werten koennen sein:

Zitat:

Film - DVD Film - SVCD Games - Console unsw

Jetzt moechte ich es hinkriegen das wenn ich zb ne Checkbox anklicke das nur die Film - DVD Werte in der Listview zu sehen sind.
Jetzt wollte ich das mit MakeVisible() hinkriegen aber es klappt nicht ganz.
MakeVisible und nicht Delete denn die andere Werte sollen in der LV drin bleiben aber nicht zu sehen sein.

Delphi-Quellcode:

procedure Form.SortierClick(Sender: TObject);
var
listitem : TListItem;
i: integer;
begin
   for i := 0 to listview.Items.Count -1 do
     begin
       if listitem.SubItems[1] = 'Films - DVDr' then
       begin
       Listview.Items.Item[i].MakeVisible(False);
       end;
     end;
end;

PS: Es handelt sich hier um keine Virtuellen Listview.
Recht herzlichen Dank.

[Luckie]

Lösche die Einträge. Der Listview sollte nicht zur Datenhaltung, sondern nur zur Visualisierung verwendet werden. Damit trennst du dann auch OOP konform doe Daten von der Oberfläche.

[lucius]

Hi Lucki,

Delphi-Quellcode:

procedure TDemoForm.Button6Click(Sender: TObject);
var
listitem : TListItem;
i: integer;
begin
for i := 0 to listview.Items.Count -1 do
begin
if listitem.SubItems[1] = 'Films - DVDr' then <----- AccesViolation
     begin
     Listview.Items.Item[i].Delete;
     end;
end;
end;

Hat jemand nen Vorschlag?

[Luckie]

Bei einer for-Schleife wird die Bedingung im Schleifenkopf nur einmal überprüft. Wenn du jetzt einen Eintrag löscht, läuft die Schleife zu weit und es kracht. Lösung: Lass die Schleife rückwärte mit downto laufen.

[lucius]

Hmmm Lucki,

Delphi-Quellcode:

procedure TDemoForm.Button6Click(Sender: TObject);
var
listitem : TListItem;
i: integer;
begin
for i := pred(listview.Items.Count) downto 0 do
begin
if listitem.SubItems[1] = 'Films - DVDr' then <------------- hier stimmt was nicht.
     begin
     Listview.Items.Item[i].Delete;
     end;
end;
end;

[Luckie]

Zitat:

Zitat von lucius

Hmmm Lucki,

Delphi-Quellcode:

if listitem.SubItems[1] = 'Films - DVDr' then <------------- hier stimmt was nicht.

Und woher soll ich jetzt, ohne Glaskugel, wissen, was das nicht stimmt. :evil:

[lucius]

Ja sry Lucki,

Zitat:

if listitem.SubItems[1] = 'Films - DVDr' then <------------- hier stimmt was nicht.

Die Subitems Films - DVDr stehen in der 3e Spalte von der Listview.
Wie greife ich in den Loop darauf zu?
Er gibt den Fehler in listitem.SubItems[1].

Gruss Lucius.

[Luckie]

Wenn es die dritte Spalte ist, warum gibst du denn dann als Index 1 ein? Etwas mehr nachdenken beim Programmieren bitte.

[lucius]

Sorry Lucki das ich deine Zeit verplempere.

Zitat:

listitem.SubItems[1] = 'Films - DVDr'

Ist schon gut so, bei CustomDrawItem gehts, aber die ganze loop stimmt nicht.
Ich gebe es auf.

[idontwantaname]

nur so ne frage, wo weißt du listitem zu ?
ich quellcode find ich nirgends ein "listitem := listview.items[i];" oder ähnliches