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

Question

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;

Answer 1

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;

Answer 2

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