如何获取自动生成控件(edit)的值

Question

我用:
    Inc(SumCount);
      with TEdit.Create(SElf) do
      begin
      parent:= frmStoreroomManage.ScrollBox1;
      Left:=LeftNum+163;
      Top:=TopNum;
      Name:='Edit'+IntToStr(SumCount);
      Width:=50;
      Text:='';
      OnKeyPress:=EditAllKeyPress;
      end;
生成了N个Edit控件.
现在在输入值后,想得到这些各个Edit的值.怎么获得?????????好难

Answer 1

var i:integer;
begin
  for i:=1 to SumCount do
  ShowMessage(TEdit(FindComponent('Edit'+IntToStr(i))).Text);
end;

Answer 2

var
  I:integer;
begin
  for I:=0 to SumCount-1 do
    if frmStoreroomManage.ScrollBox1.FindComponent('Edit'+IntToStr(i)) is TEdit then
      ShowMessage(TEdit(frmStoreroomManage.ScrollBox1.FindComponent('Edit'+IntToStr(i))).Text);