TListView:mostrar datos desde un bucle

[[Gabo]]

Ejemplo de insertar datos en un TListView:

 
while (!DataModule->DataSource->DataSet->Eof)
{
      TListItem* lista= lvSalas->Items->Add();
      lista->Caption=DataModule->DataSource->DataSet->FieldByName("CLIENTE_CODIGO")->AsString;
      lista->SubItems->Add(DataModule->DataSource->DataSet->FieldByName("CLIENTE_NOMBRE")->AsString);
      DataModule->DataSource->DataSet->Next();
}

Ejemplo de recorrer un TListView:

 
for (int i=0; i < ListView1->Items->Count; i++)
{
    ...=ListView1->Items->Item[i]->Caption;
    ...=ListView1->Items->Item[i]->SubItems [0][0];
}