Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Items de un Listview (https://www.clubdelphi.com/foros/showthread.php?t=76080)

Miguel89 07-10-2011 15:24:31

Items de un Listview
 
Hola, tengo un listview al cual le voy agregando contenido..

# | Nombre | Apellidos |
X | Pepe | Lopez
V | Club | Delphi


El problema que tengo es que he puesto iconos en el lado izquierdo "V" y "X" (aceptado y cancelado), no se como hacer para que me diga cuantos usuarios estan cancelados y cuantos aceptados ya que al no tratarse de una cadena strings no se como puedo buscarlos. Gracias ante todo.

cloayza 07-10-2011 15:57:50

Podrias usar el siguiente código

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var 
    i, CountX, CountV:Integer;
begin
       CountX:=0; CountV:=0;
      for i:=0 To ListView1.Items.Count-1 do
      begin
             if ListView1.Items[i].Caption='X' then
                Inc(CountX);
             if ListView1.Items[i].Caption='V' then
                Inc(CountV);
      end;
      
     ShowMessage(Format('Conteo de X: %d Conteo de V:%d',[CountX, CountY]));
end;

Saludos

Miguel89 07-10-2011 16:43:34

Muchas gracias por el codigo cloayza, solo he cambiado un poco para adaptarlo a lo que estaba buscando ya que el caption no existia, en su lugar habia una imagen.

Código Delphi [-]
       
procedure TForm1.Button1Click(Sender: TObject); var      i, CountX, CountV:Integer;
CountX:=0; CountV:=0;
      for i:=0 To ListView.Items.Count-1 do
      begin
             if ListView.Items[i].ImageIndex=1 then
                Inc(CountX);
            if ListView.Items[i].ImageIndex=2 then
                Inc(CountV);
      end;


Saludos.

KeichiMinamoto 09-03-2012 21:35:43

Aprecio mucho su ayuda / Delphi for PHP
 
Hola a todos.
Soy completamente novato en Delphi y algo entiendo de PHP.
Un amigo me pasó una version de Delphi for PHP (2.1.0.1083) y estoy haciendo algunas pruebas que me están gustando mucho.

Sin embargo, tengo un problema con un Listview.

Creé una funcion para agregar itemes de un array a un listview, y va asi:

function AddToLista($arr,$lista) {
$LV=new Listview;
$LV=$lista;
if (!($cnt=($LV->Items->Count))) {
$LV->Items->Add;
$cnt=0;
}
$LV->Items[$cnt]->Subitems->Add($arr);
return $lista;
}

$arr es el (array) que traigo con datos
$lista es el listview.

El problema es que me da el error siguiente: Fatal error: Call to a member function Add() on a non-object...
A lo mejor lo estoy abordando mal.

Aprecio mucho de antemano su ayuda y espero no quitarles su tiempo.
Atte.,
KM


La franja horaria es GMT +2. Ahora son las 16:13:58.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi