ayuda con salida de indices

[ecfisa]

Hola.

Un ejemplo de como podrías implementarlo:

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;
  for i:= 0 to ADOTable.FieldCount -1 do
  begin
    ListColumn:= ListView1.Columns.Add;
    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;

Saludos.