Delphi中 如何将控件名称+变量

像这样做的话只能这样：
定义一个控件数组Jedit

var
Form1: TForm1;
Jedit:Array[0..9] of TEdit;
implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
Jedit[0]:=Edit1;
Jedit[1]:=Edit2;
Jedit[2]:=Edit3;
Jedit[3]:=Edit4;
Jedit[4]:=Edit5;
Jedit[5]:=Edit6;
Jedit[6]:=Edit7;
Jedit[7]:=Edit8;
Jedit[8]:=Edit9;
Jedit[9]:=Edit10;
for i:=0 to 9 do
begin
Jedit[i].Text:=inttostr(i+1);
end;
end;

这样的话就可以了，不过对于你的这个程序，这样写也是很麻烦，若后边还有的话，用起来还比较方便。不知答案是否满意？

var
i :Integer;
begin
for i := 1 to 10 do
(FindComponent('Edit'+inttostr(i)) as TEdit).Text := inttostr(i);
end;