我从SQL Server 2000中获得数据放到了DBGrid里面,
但我想得到DBGrid 中的每一个格子中的内容读出来
然后处理,但是怎样才能读出每一小格的内容呢,且以
字符串的格式保存到一个变量中
DBGrid:
--------------------------
| 251325 | 26926 |.....  |
|-------------------------要取得 251325或26926 的值并保存
其实就取得行了,保存是小CASE的事

解决方案 »

  1.   

    procedure TForm2.showgridhint(grid: TDBGrid; Column: TColumn);
    var
      i:Integer;
    begin
      Grid.Hint:='';
      for i := 0 to Grid.Columns.Count-1 do begin
         if i<>Grid.Columns.Count-1 then Grid.Hint:=Grid.Hint+Grid.Columns.Items[i].Title.Caption+':'+Grid.Columns.Items[i].Field.AsString+#13
         else Grid.Hint:=Grid.Hint+Grid.Columns.Items[i].Title.Caption+':'+Grid.Columns.Items[i].Field.AsString;
      end;//end forend;
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    这里个以HINT形式显示每一小格的内容的例子
      

  2.   

    Column: TColumn
    的形参的传递是什么啊?
      

  3.   

    Column: TColumn
    的形参的传递是什么啊?
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~
    这个不用理它;楼主直接用for i := 0 to Grid.Columns.Count-1 do begin
         if i<>Grid.Columns.Count-1 then Grid.Hint:=Grid.Hint+Grid.Columns.Items[i].Title.Caption+':'+Grid.Columns.Items[i].Field.AsString+#13
         else Grid.Hint:=Grid.Hint+Grid.Columns.Items[i].Title.Caption+':'+Grid.Columns.Items[i].Field.AsString;
    end;
    就可以了,把其中的grid改为你的DBGRID的NAME
      

  4.   

    哦,谢谢,分,我给了,你check 一下吧!!