求助一个问题，在线！

Question

edit1->text = 10
现在有个数组a[0] = "edit1->text"
我现在不想用edit1->text = 某值，
说白了就是
char a[2] = {'a','b'};
a[0] = 10; //就代表 a = 10;
a[1] = 100; //就代表 b = 100;
不过怎么将控件这样。

Answer 1

定义控件数组不就行了.
var
   aryEdit:array[0..10]of TEdit;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  haerbin982:array [1..10] of TEdit;
  i:integer;
begin
  for i:=1 to 10 do
  begin
    haerbin982[i]:=TEdit.Create(self);
    haerbin982[i].Parent:=self;
    haerbin982[i].Left:=50;
    haerbin982[i].Top:=10*i;
    haerbin982[i].OnClick:=OnClick
    haerbin982[i].Visible:=true;
    haerbin982[i].text:='haerbin982'+inttostr(i);
  end;
end;