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

[Lannes]

Hallo,

SubItems[1] ist schon richtig :wink:

Code:

Spalte 1 | Spalte 2    | Spalte 3    |
Caption  | SubItems[0] | SubItems[1] |

1. mit Zuweisung der Items

Delphi-Quellcode:

var z : Integer;
    aItem : TListItem;
begin
  for z := ListView1.Items.Count-1 downto 0 do
    begin
    aItem := ListView1.Items[z];
    if aItem.SubItems[1] <> 'Delphi' then
      aItem.Delete;
    end;

2. ohne Zuweisung

Delphi-Quellcode:

var z : Integer;
begin
  for z := ListView1.Items.Count-1 downto 0 do
    if ListView1.Items[z].SubItems[1] <> 'Delphi' then
      ListView1.Items[z].Delete;

[lucius]

Klapt wunderbar Lannes, vielen herzlichen Dank an dir.
Jetzt noch die Frage wie mach ich das die Listitems die deleted wurden wieder in der Listview sichtbar sind?

Delphi-Quellcode:

procedure THaupt.MusikClick(Sender: TObject);
var z : Integer;
begin
if Musik.Checked = false then
begin
  for z := ListView.Items.Count-1 downto 0 do
    if ListView.Items[z].SubItems[1] = 'Musik - Album' then
      ListView.Items[z].Delete;
end
else
...... <---- wieder sichtbar machen.

Auch die anderen Danke fuer eure Antworten.

Gruss Lucius..

[lucius]

Denn ich glaube die items die mit ListView.Items[z].Delete geloescht wurden sind fuer immer weg oder?

Gruss Lucius.

[Luckie]

Jupp. Einfach wieder aus der Datenmenge holen und einfügen, deswegen solltest du ja den Listview nicht zur Datenhltung missbrauchen.