Hola Jorge.
Realmente no veo la necesidad de complicarte usando un
TStringGrid...
De todos modos te hice esta función que pasa los campos de cualquier
TIBQuery sin campos BLOB, a cualquier
TStringGrid:
Código Delphi
[-]
procedure IBQueryToStringGrid(IBQ: TIBQuery; Grd: TStringGrid);
var
c,r : Integer;
begin
Grd.ColCount := IBQ.FieldCount-1;
Grd.RowCount := IBQ.RecordCount;
r := 0;
IBQ.First;
while not IBQ.Eof do
begin
for c:= 0 to IBQ.RecordCount-1 do
Grd.Cells[Grd.FixedCols+c, Grd.FixedRows+r] := IBQ.Fields[c].AsString;
IBQ.Next;
Inc(r);
end;
end;
Ejemplo de uso:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
IBQueryToStringGrid(IBQuery4, StringGrid1);
end;
Y por favor cuando pongas código Delphi usa las etiquetas [delphi] tu_codigo [/delphi] como te mencionó antes
duilioisola.
Saludos
![Smilie](http://www.clubdelphi.com/foros/images/smilies/smile.gif)