ayuda con salida de indices

[danielmj]

muchas gracias ecfisa,

esto era lo que necesitaba, aunque esto tiene que hacerlo cuando una consulta SQL de vuelva los resultados de una busqueda.

Por otra parte, pones esto:

Código Delphi [-]
listview1.columns[0].with:= 0;

Pero yo quiero que las columnas tengan el ancho exacto de 150, si cambio el 0 por el 150, lo que hace es crear una primera columna con ese ancho y a continuacion, 3 columnas mas con el ancho minimo marcado supongo por el .with:= 0

No se como arreglar esto.

un saludo y gracias.

[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.

[danielmj]

hola ecfisa,

muchas gracias por la ayuda, la verdad es que hacia casi 2 años que no hacia nada de esto y ahora me salido este programita y claro, me veo en la situacion de aver olvidado muchas cosas, pero que a medida que se va desarrolando el codigo empiezo a recordar.

Por otra parte, la idea de la cosulta es por que se realizaran dos tipos de busquedas de clientes, todos aquellos cuyo apellidos empiecen por una letra determinada y contenida en un combobox o por el apellido completo.

Puede ser algo asi...
Código

Código SQL [-]
SELECT CLIENTE 
FROM TABLA1 
WHERE APELLIDO LIKE "S*"

mas o menos. ahora mirare como implementarlo en el codigo.

un saludo y muchisimas gracias.