Items de un Listview

[Miguel89]

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]

Podrias usar el siguiente código


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]

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.


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]

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