Cargar lista simple dentro de stringgrid

[ecfisa]

Hola Neg90.

Según lo que te entendí, haría:

Código Delphi [-]
procedure TFormCatalogoLibros.SpeedButton0Click(Sender: TObject);
var
  i: Integer;
begin
  with StringGrid1 do
  begin
    // Limpiar datos previos
    for i := 0 to RowCount - 1 do Rows[i].Clear;
    Row:= 1;
    // Obtener columnas, poner títulos
    Carrito.Close;
    Carrito.SQL.Text:= 'SELECT * FROM LIBRO';
    Carrito.Open;
    ColCount:= Carrito.FieldCount; // Nro columnas = Nro campos
    FixedCols:= 0;
    FixedRows:= 1;
    // Poner títulos de columna
    for i:= 0 to ColCount-1 do
      Cells[i,0]:= Carrito.Fields[i].FieldName;
    // Preparar consulta
    Carrito.Close;
    Carrito.SQL.Text:= 'SELECT * FROM LIBRO WHERE ISBN = :PISBN';
    Carrito.Prepare;
    while Lista <> nil do
    begin
      Carrito.Close;
      Carrito.ParamByName('PISBN').AsString:= Lista.Dato;
      Carrito.Open;
      // Pasar registos a celdas
      while not Carrito.Eof do
      begin
        for i:= 0 to ColCount-1 do Cells[i, Row]:= Carrito.Fields[i].AsString;
        Carrito.Next;
        Row:= Row + 1;
        RowCount:= RowCount + 1;
      end;
      Lista:= Lista^.Sig;
    end;
  end;
end;

Saludos