作用域（Scope）

最新推荐文章于 2025-09-12 18:45:12 发布

weixin_30751947

最新推荐文章于 2025-09-12 18:45:12 发布

阅读量68

点赞数

CC 4.0 BY-SA版权

文章标签：操作系统

原文链接：http://www.cnblogs.com/pchmonster/archive/2011/12/17/2291124.html

作用域表示变量在程序不同部分的可视度。下面给出了一个完整代码例子，例子中包括了三个作用域中的相同名称的变量X。

Step1、新建一个Application，并在Form1上面放置一个Memo控件（memo1）和Button控件（button1）。

Step2、添加代码，完成后，完整的Unit1单元如下显示：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

var
  X: Integer;   {Unit variable X }
  {
   implementation中声明的变量在整个单元中都是可见的
  }

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  X: Integer;
  {
   在Button1Click中声明的变量只在此过程中有效
  }
  procedure Test;
  var
    X: Integer;
    {
     在Test过程声明的变量只在此局部过程中有效
    }
  begin
    X := 300;
    { This X variable has value of 300}
    memo1.Lines.Add('Local Function X = ' + IntToStr(X));
  end;
begin
  Memo1.Lines.Clear;
  { Local X has a value of 100.}
  X := 100;
  Memo1.Lines.Add('Local X = ' + inttostr(X));
  Memo1.Lines.Add('Global X = ' + IntToStr(Unit1.X));
  { Call the Test procedure}
  Test;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  { Initialize the Unit variable X.}
  X := 200;
end;

end.

如上面的例子，在Button1Click过程内部还实现了一个Test子过程，而此子过程的作用域只能被父过程调用。如果一个过程中有多个子过程，那么实现位置更靠后的子过程可以调用它前面的子过程。