怎么把pagecontrol当前页上的edit赋值到stringgrid里？

如何把当前活动页的相关字段赋值到下面的stringgrid中呢？最终实现的效果是：
名称及规格 | 件数 | 重量
板材 AXBXC | 1 | 1
Z型钢 AXBXC | 1 | 1

现在的困扰我的地方是如果名称可以用Pagecontrol.Active.caption赋值的话，那规格怎么办呢？数量怎么办？我每个tabsheet下面都会有一个edit，用来作为“件数”变量的输入，也有很多edit作为不同类型钢材的“A、B、C等参数”的输入，全部edit加起来有70多个了，想了好几天都不知道怎么处理，请大家帮帮忙

[解决办法]
其实你这些EDIT应该放到pagecontrol的外部，只是显示在所有TabSheet的上面，则达到了共享的效果了。

如有不同的地方则根据：Pagecontrol.Active来判断就OK了
[解决办法]
你的意思是只对当前tabsheet上的edit赋值还是pagecontrol上的edit赋值?根据你自己的业务逻辑，在事件里面添加就好了呀。

Delphi(Pascal) code

   procedure TForml．：ButtonlClick(Sender：’rObject)；      var I，J：Integer；      begin      with StringGrid 1 do      for I：=0 to ColCount一1 do      for J：=O to RowCount—l do      Cells[I，J]：=edit.text；      end；