把不同类型数据都转化成string型,如果转化不了的则无法显示,具体的函数有inttostr,floattostr,datetimetostr..... 。然后用stringgrid.cells[i,j]:=...显示

解决方案 »

  1.   

    procedure TForm1.Button2Click(Sender: TObject);
    var
    i,j:integer;
    begin
         Query1.close;
         Query1.SQL.Add('select * from hwkknd');
         Query1.Open;
         For i:=0 to Query1.RecordCount - 1 do
             begin
                 for j:=0 to Query1.FieldCount -1 do
                     begin
                         stringgrid1.Cells[j,i]:=Query1.Fields[j].value;
                     end;
                 Query1.next;
             end;end;条件:再想点别的办法让StringGrid的行列与数据库记录字段数与记录数一样多就可以了!
    OK?
      

  2.   

    最后忘了Close了,这可不是个好习惯!呵呵……