理解 Delphi 的类(十) - 深入方法[12] - implementation 区中的方法

//要点12: implementation 区中的过程或函数, 只能在本单元调用

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



{implementation 区中的过程或函数, 只能在本单元调用}

function MyFun(x,y: Integer): Integer;

begin

  Result := x + y;

end;





procedure TForm1.Button1Click(Sender: TObject);

var

  i: Integer;

begin

  i := MyFun(1,2);

end;



end.