在 Delphi 中，可以使用 RTTI（运行时类型信息） 或其他方法通过对象的名称字符串来访问对象。比如，如果你有一个控件的名称字符串，你希望通过该名称找到并访问实际的控件。
以下是通过 RTTI 以及其他技术（如 FindComponent）来实现这一目标的详细方法。
方法 1：使用 FindComponent
FindComponent 是一个常用的方法，它允许你通过组件名称（字符串）在父组件中查找组件。假设控件位于表单上，可以通过表单的 FindComponent 方法查找控件。
示例代码：
procedure AccessComponentByName(Form: TForm; ComponentName: string);
var
Component: TComponent;
begin
// 查找组件，确保在 Form 中存在该组件
Component := Form.FindComponent(ComponentName);
// 如果找到该控件，进行相应操作
if Assigned(Component) then
begin
if Component is TEdit then
TEdit(Component).Text := '找到控件并设置文本'
else if Component is TButton then
TButton(Component).Caption := '按钮找到';
end
else
ShowMessage('未找到组件：' + ComponentName);
end;
用法：
如果你想访问一个名为 Edit1 的控件，可以像这样调用：
AccessComponentByName(Self, 'Edit1');
方法 2：使用 RTTI 进行更复杂的对象访问
RTTI 提供了更为灵活和强大的方式来获取控件的属性和方法。你可以通过 RTTI 查找对象及其属性、字段和方法。
示例代码：
uses
System.Rtti, Vcl.StdCtrls;
procedure AccessComponentUsingRTTI(Form: TForm; ComponentName: string);
var
Context: TRttiContext;
RttiType: TRttiType;
Prop: TRttiProperty;
Field: TRttiField;
Component: TObject;
begin
// 使用 FindComponent 先找到该控件
Component := Form.FindComponent(ComponentName);
if Assigned(Component) then
begin
// 获取对象的 RTTI 类型
RttiType := Context.GetType(Component.ClassType);
// 遍历属性并显示
for Prop in RttiType.GetProperties do
begin
if Prop.IsReadable then
ShowMessage(Prop.Name + ' = ' + Prop.GetValue(Component).ToString);
end;
// 遍历字段并显示
for Field in RttiType.GetFields do
begin
ShowMessage(Field.Name + ' = ' + Field.GetValue(Component).ToString);
end;
end
else
ShowMessage('未找到组件：' + ComponentName);
end;
用法：
同样可以通过控件名称访问：
AccessComponentUsingRTTI(Self, 'Edit1');
解释：
-
FindComponent 方法用于通过组件名称字符串查找控件或组件。该方法适用于所有继承自
TComponent的类（包括表单和大部分 VCL 控件）。 -
RTTI 允许更灵活的方式访问对象的属性、字段和方法。通过
TRttiContext，可以获取对象的类型信息，然后通过GetProperties和GetFields访问对象的所有属性和字段。
注意事项：
FindComponent只能用于在当前表单或父容器中查找已命名的组件，因此需要确保要查找的控件或对象属于某个TComponent。- RTTI 可以访问对象的属性、字段和方法，但你必须先通过某种方式（如
FindComponent）获得对象实例。
这两种方法都能实现通过名称字符串访问实际控件或对象。FindComponent 更简单，而 RTTI 更强大，适合需要深入访问对象属性和方法的场景。
