Listview sortieren: Makevisible(False)

[Lannes]

Hallo,

SubItems[1] ist schon richtig

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.