百度知道 上的解答：
with dbgrid1.datasource.dataset do //或 with adoquery1 do (这里是你dbgrid连的表)
begin
recno :=你的行数。
temp:=DBGrid1.Fields[你的列数].DisplayText;
end;
这个算法temp得到的只是第一行不同列的数据，我想把数据获取后用于计算。就是要把每个“格子”中的数据复制给不通用的变量，因此要有第二第三行的数据。在线求解！！！

这不是现成的答案吗？
with dbgrid1.datasource.dataset do //或 with adoquery1 do (这里是你dbgrid连的表)
begin
recno :=2
temp:=DBGrid1.Fields[2].DisplayText;
showmessage（temp）//如有差池测试下就知道了
end;