小生向各位请教一类似于Foxpro中宏代换功能。

[myadvice]

在设计程序时。有一批文本框edit1、edit2、...、editn 共n个
怎样用一个循环实现对这些文本框的text属性值进行赋值或其它操作
i:=l
str:string;
n:=10
for i:=1 to n do
begin
str:='edit'+inttostr(i);
//在这里怎样实现用str对edit1....edit10的text属性的赋值
//如：在Foxpro中可用&str实现
end;

[王集鹄]

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
if Components[I] is TEdit then
TEdit(Components[I]).Text := '试试看';
end;

[王集鹄]

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
vComponent: TComponent;
begin
for I := 1 to 10 do begin
vComponent := FindComponent('Edit' + IntToStr(I));
if Assigned(vComponent) then
TEdit(vComponent).Text := '再试试看';
end;
end;

[王集鹄]

//一点注释
//System.Assigned()判断对象是否分配资源
//Classes.TComponent.FindComponent()根据名称查找元件