【Delphi】知道控件名称（字符串），访问控件

在 Delphi 中，可以使用 RTTI（运行时类型信息） 或其他方法通过对象的名称字符串来访问对象。比如，如果你有一个控件的名称字符串，你希望通过该名称找到并访问实际的控件。

以下是通过 RTTI 以及其他技术（如 FindComponent）来实现这一目标的详细方法。

方法 1：使用 `FindComponent`

FindComponent 是一个常用的方法，它允许你通过组件名称（字符串）在父组件中查找组件。假设控件位于表单上，可以通过表单的 FindComponent 方法查找控件。

示例代码：

procedure AccessComponentByName(Form: TForm; ComponentName: string);
varComponent: TComponent;
begin// 查找组件，确保在 Form 中存在该组件Component := Form.FindComponent(ComponentName);// 如果找到该控件，进行相应操作if Assigned(Component) thenbeginif Component is TEdit thenTEdit(Component).Text := '找到控件并设置文本'else if Component is TButton thenTButton(Component).Caption := '按钮找到';endelseShowMessage('未找到组件：' + ComponentName);
end;

用法：

如果你想访问一个名为 Edit1 的控件，可以像这样调用：

AccessComponentByName(Self, 'Edit1');

方法 2：使用 RTTI 进行更复杂的对象访问

RTTI 提供了更为灵活和强大的方式来获取控件的属性和方法。你可以通过 RTTI 查找对象及其属性、字段和方法。

示例代码：

usesSystem.Rtti, Vcl.StdCtrls;procedure AccessComponentUsingRTTI(Form: TForm; ComponentName: string);
varContext: TRttiContext;RttiType: TRttiType;Prop: TRttiProperty;Field: TRttiField;Component: TObject;
begin// 使用 FindComponent 先找到该控件Component := Form.FindComponent(ComponentName);if Assigned(Component) thenbegin// 获取对象的 RTTI 类型RttiType := Context.GetType(Component.ClassType);// 遍历属性并显示for Prop in RttiType.GetProperties dobeginif Prop.IsReadable thenShowMessage(Prop.Name + ' = ' + Prop.GetValue(Component).ToString);end;// 遍历字段并显示for Field in RttiType.GetFields dobeginShowMessage(Field.Name + ' = ' + Field.GetValue(Component).ToString);end;endelseShowMessage('未找到组件：' + ComponentName);
end;

用法：

同样可以通过控件名称访问：

AccessComponentUsingRTTI(Self, 'Edit1');

解释：

FindComponent 方法用于通过组件名称字符串查找控件或组件。该方法适用于所有继承自 TComponent 的类（包括表单和大部分 VCL 控件）。
RTTI 允许更灵活的方式访问对象的属性、字段和方法。通过 TRttiContext，可以获取对象的类型信息，然后通过 GetProperties 和 GetFields 访问对象的所有属性和字段。