Delphi Classes-FindComponent 通过文本字符串名称，寻找组件(控件)

Delphi Classes-FindComponent 通过文本字符串名称，寻找组件(控件)

引用单元：Classes

函数原型：

?

1 2 3 4 5 6 7 8 9 10 11 12

function TComponent.FindComponent(const AName: string): TComponent; var   I: Integer; begin   if (AName <> '') and (FComponents <> nil) then     for I := 0 to FComponents.Count - 1 do     begin       Result := FComponents[I];       if SameText(Result.FName, AName) then Exit;     end;   Result := nil; end;

 

Delphi 使用示例：

?

1 2 3 4 5 6 7

var   sLabel: TComponent; begin   sLabel:= FindComponent("Label1");   If sLabel is TLabel then     TLabel (sLabel ).Caption:=' Delphi'; end;

　　

　

 

创建时间：2020.05.27　　更新时间：