Buscar por:

Verificar se o CheckBox do listView foi marcado

Código

{Coloque 1 listview (palheta Win32)

Na propriedade ViewStyle = vsReport, columns adicione 4 colunas}

var

  Lista_Eventos   : TListItem;

  x : shortint;

begin

  x := 1;

  while x <= 3 do

   begin

     Lista_Eventos := ListView1.Items.Add;

     ListView1.Columns.Items[0].Caption := '';

     ListView1.Columns.Items[1].Caption := 'col 1';

     ListView1.Columns.Items[2].Caption := 'col 2';

     ListView1.Columns.Items[3].Caption := 'col 3';

     Lista_Eventos.Caption := ' ';

     Lista_Eventos.SubItems.Add('Coluna 1');

     Lista_Eventos.SubItems.Add('Coluna 2');

     Lista_Eventos.SubItems.Add('Coluna 3');

     inc(x);

   end;

end;

procedure TCopiaArqHotBD.Button1Click(Sender: TObject);

var

  i : byte;

  j : byte;

begin

  i := 0;

  j := 0;

  while i <= ListView1.Items.Count - 1 do

   begin

      if ListView1.Items.Item[i].Checked then

         inc(j);

      inc(i);

   end;

  showmessage(inttostr(j));

end;