Delphi中如何在嵌套过程内访问Label组件？

方案1：利用窗体默认全局实例（最简单，适用于单窗体程序） #

如果你的程序是单窗体结构，且窗体为自动创建的默认设置，可直接在Print过程中通过窗体全局实例访问Label_Display：

procedure Print;
var
  Text_Label: String;
begin
  Text_Label := IntToStr(first_number_Int);
  // 通过窗体全局实例访问Label
  Form1.Label_Display.Caption := Text_Label;
end;

procedure number_press(number_pressed: String);
begin
  first_number_Str := first_number_Str + number_pressed;
  Print();
end;

procedure TForm1.Button_1Click(Sender: TObject);
begin
  number_press('1');
end;

注意：如果窗体类不是默认的TForm1，或窗体为动态创建，此方法不适用。

方案2：声明全局Label引用变量（更灵活） #

在单元的implementation段声明全局TLabel变量，窗体初始化时将Label_Display赋值给它，所有过程可直接使用该变量，无需逐层传递：

1. 在单元implementation区域（仅本单元可见，避免全局污染）添加变量声明：

implementation

var
  Global_DisplayLabel: TLabel; // 全局Label引用

{$R *.dfm}

2. 在窗体OnCreate事件中初始化变量：

procedure TForm1.FormCreate(Sender: TObject);
begin
  Global_DisplayLabel := Label_Display;
end;

3. 修改Print过程：

procedure Print;
var
  Text_Label: String;
begin
  Text_Label := IntToStr(first_number_Int);
  Global_DisplayLabel.Caption := Text_Label;
end;

此方法优势在于可灵活替换目标控件，后续需切换显示载体时，仅需修改FormCreate中的赋值，无需改动所有调用Print的代码。

方案3：使用回调函数（低耦合，适合复杂场景） #

若需更低耦合性，可给number_press添加回调参数用于更新显示，让业务逻辑与UI控件彻底解耦：

// 定义回调类型
type
  TUpdateDisplayProc = procedure(const Text: String) of object;

procedure Print(UpdateDisplay: TUpdateDisplayProc);
var
  Text_Label: String;
begin
  Text_Label := IntToStr(first_number_Int);
  UpdateDisplay(Text_Label);
end;

procedure number_press(number_pressed: String; UpdateDisplay: TUpdateDisplayProc);
begin
  first_number_Str := first_number_Str + number_pressed;
  Print(UpdateDisplay);
end;

// 按钮点击事件中传递回调
procedure TForm1.Button_1Click(Sender: TObject);
begin
  number_press('1', procedure(const Text: String)
    begin
      Label_Display.Caption := Text;
    end);
end;

此方案适合后续扩展或测试场景，但需修改所有number_press的调用处添加回调参数。考虑到你提到number_press已在多处使用，前两个方案更贴合当前需求。

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