如何用数组操作Delphi的TEdit控件？寻求替代Case语句方案

针对你当前用case语句批量赋值TEdit控件的问题，在Delphi 4.0中有两种更优雅的实现方式，能让你像操作数组一样管理控件：

方法一：自定义TEdit数组（推荐，性能更优） #

在窗体类中声明一个TEdit类型的数组，提前将对应控件关联到数组元素，之后就能直接通过数组索引操作控件：

1. 声明数组：在窗体类的private区域添加数组声明

type
  TForm1 = class(TForm)
    Name1: TEdit;
    Name2: TEdit;
    Name3: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    EditArray: array[1..3] of TEdit; // 声明与控件数量匹配的数组
  public
    { Public declarations }
  end;

2. 初始化数组：在窗体的OnCreate事件中，将每个TEdit控件赋值给数组元素

procedure TForm1.FormCreate(Sender: TObject);
begin
  EditArray[1] := Name1;
  EditArray[2] := Name2;
  EditArray[3] := Name3;
end;

3. 批量赋值：直接通过循环操作数组即可

var
  n: Byte;
  names: array[1..3] of string;
begin
  names[1] := 'Erik';
  names[2] := 'Ole';
  names[3] := 'John';

  for n := 1 to 3 do
    EditArray[n].Text := names[n];
end;

这种方式无需每次查找控件，执行效率更高，且代码可读性强，适合控件数量固定的场景。

方法二：通过控件名称动态查找 #

利用Delphi的FindComponent函数，根据控件名称的规律（如Name1、Name2）动态获取控件实例，无需提前声明数组：

var
  n: Byte;
  names: array[1..3] of string;
  CurrentEdit: TEdit;
begin
  names[1] := 'Erik';
  names[2] := 'Ole';
  names[3] := 'John';

  for n := 1 to 3 do
  begin
    // 根据名称拼接查找控件
    CurrentEdit := TEdit(FindComponent('Name' + IntToStr(n)));
    // 检查控件是否存在，避免空指针异常
    if Assigned(CurrentEdit) then
      CurrentEdit.Text := names[n];
  end;
end;

这种方式更灵活，无需提前维护数组，但每次循环都要执行查找操作，性能略低于方法一，且要求控件名称严格遵循命名规则。

内容的提问来源于stack exchange，提问作者user1768377