bb.pas

来自「delphi的学习资料」· PAS 代码 · 共 62 行

unit BB;

interface
uses
  Windows, Messages, SysUtils,  Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TfmBB = class(TForm)
  function fAdd(a,b: word): word;   // 自定义函数，属于TfmBB，可被别的unit引用
  private    { Private declarations }
  public     { Public declarations }
    function fSub(const a,b: string): string; //自定义函数,属于TfmBB,可被别的unit引用
  end;

var
  fmBB: TfmBB;

  procedure fInc(var a: word);    // 自定义函数， 属于BB, 可被别的unit引用
  function fPow00(b: word): word; // 无 forward;


////////////////////////////////////////////////////////////////////////////////
implementation
{$R *.dfm}

function fPow(a: word): Integer; forward; //自定义函数，属于BB, 不可被别的unit引用
                            // 必须有 forward;
//==============================================================================
function TfmBB.fAdd(a,b: word): word;
begin
  Result:=a+b;                //Result 作为返回值
end;

//==============================================================================
function TfmBB.fSub(const a,b: string): string;
var w: Integer;
begin
  w:=StrToInt(a)-StrToInt(b);
  fSub:=IntToStr(w);          //函数名 作为返回值
end;

//==============================================================================
procedure fInc( var a: word);
begin
  a:=a+1;
end;

//==============================================================================
function fPow(a: word): Integer;   // 无 forward;
begin
  Result:=a*a;
end;

//==============================================================================
function fPow00(b: word): word;
begin
  Result:=fPow(b);
end;

end.