ayuda con salida de indices

[ecfisa]

Hola.

Código Delphi [-]
var
  ListItem: TListItem;
  ListColumn: TListColumn;
  i: Integer;
begin
  ListView1.ViewStyle:= vsReport;
  ListView1.Columns.Clear;
  ListColumn:= ListView1.Columns.Add;
  ListView1.Columns[0].Width:= 0; //Ocultar columna 0
  for i:= 0 to ADOTable.FieldCount -1 do
  begin
    ListColumn:= ListView1.Columns.Add;
    ListColumn.Width:= 150; // <- Aqui le das el ancho de 150 a las columnas
    ListColumn.Caption:= ADOTable.Fields[i].FieldName;
  end;
  ADOTable.First;
  while not ADOTable.Eof do
  begin
    with ListView1.Items.Add do
      for i:= 0 to ADOTable.FieldCount -1 do
        SubItems.Add(ADOTable.Fields[i].AsString);
    ADOTable.Next;
  end;
end;

En cuanto a traerlo de una consulta, sólo debes cambiar el TADOTable por un TADOQuery. Yo usé una tabla por que en el código de tu primer mensaje:

Código Delphi [-]
campo:= form1.adoTabla.IndexFields[1].AsString;   
for i:= 0 to form1.adotabla.RecordCount -1 do

Estas usando una tabla y no una consulta.

Saludos.