TListView

[skorsi]

Hallo,

wie kann ich in der TListView nacheinander, von oben nach unten, alle Zeile durchgehen und schauen ob sie selektiert wurde oder nicht?

Viele Grüße,
Skorsi

[toms]

Hi!

Das geht so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i: Longword; 
begin 
  with Listview1 do 
    for i := 0 to Items.Count - 1 do 
      if Items[i].Selected then 
        Items[i].Caption := Items[i].Caption + ' - Markiert!'; 
end;

[skorsi]

Danke