怎么使用控件树组???? edit1(0).....edit(10)????怎么声明啊??

Question

var
  edits:array [0..10] of tedit;
  i:integer;
begin
  for i:=0 to 10 do 
  begin
    edits[i]:=tedit.create(self);
    edits[i].parent:=self;
    edits[i]...//do something
  end;
end;

Answer 1

Delphi中没有这个东西呵呵。。
如果是设计时创建的你可以用Tag来区分控件。如果是运行时创建的时候你可以用动态数组或Tlist。

Answer 2

var
  EditList: array [0..10] of TEdit;
  I: Integer;
begin
  for I := 0 to 10 do begin
    EditList[I] := TEdit.Create(Self);
    EditList[I].Parent := Self;
    EditList[I].Top := I * EditList[I].Height;
  end;
end;

Answer 3

var
  AEdit: array [0..10] of TEdit;
  I: Integer;
begin
  for I := 0 to 10 do begin
    AEdit[i] := TEdit.Create(Self);
    AEdit[i].Parent := Self;
    AEdit[i].Name := 'Edit'+ inttostr(i);
    AEdit[i].Top := I * 2;  end;
end;

Answer 4

var tt: array[0..9] of TEdit;
begin
  tt[1]:= Edit1;
  tt[1].Name:='EditTest'  ;
  tt[1].Text:='test,test' ;
  //tt[1].Parent:=Panel1;
end;