aa.pas

delphi的学习资料

unit AA;

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

type
  TfmAA = class(TForm)
    btnShowB: TButton;
    edt1: TEdit;
    edt2: TEdit;
    btnAdd: TButton;
    btnSub: TButton;
    btnPow: TButton;
    btnInc: TButton;
    LbR: TLabel;
    btnInc10: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnShowBClick(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
    procedure btnSubClick(Sender: TObject);
    procedure btnIncClick(Sender: TObject);
    procedure btnPowClick(Sender: TObject);
    procedure btnInc10Click(Sender: TObject);
  private    { Private declarations }
  public     { Public declarations }
  end;

procedure fInc( var a: word);     // 自定义函数
function XX( ar: array of word): integer; // 自定义函数

var
  fmAA: TfmAA;

////////////////////////////////////////////////////////////////////////////////
implementation
uses BB;
{$R *.dfm}

function XX( ar: array of word): integer;   // 自定义函数
var
  i: byte;
  sum: integer;
begin
  sum:=0;
  for i:=0 to High(ar) do
  begin
    sum:=sum+ar[i];
  end;

  Result:=sum;
end;

//==============================================================================
procedure TfmAA.FormCreate(Sender: TObject);
begin
  edt1.Text:='300';
  edt2.Text:='50';
end;

//==============================================================================
procedure TfmAA.btnShowBClick(Sender: TObject);
begin
  fmBB.Show;      // Class TForm的方法（procedure）
end;


//==============================================================================
procedure TfmAA.btnAddClick(Sender: TObject);
var v: Integer;
begin
  v:=fmBB.fAdd(StrToInt(edt1.Text),StrToInt(edt2.Text)); //注意:不是BB.fAdd
  LbR.Caption:=IntToStr(v);         // IntToStr 是 系统函数 （Function）
end;

//==============================================================================
procedure TfmAA.btnSubClick(Sender: TObject);
begin
  LbR.Caption:=fmBB.fSub(edt1.Text, edt2.Text);
end;

//==============================================================================
procedure TfmAA.btnIncClick(Sender: TObject);
var x: word;
begin
  x:=StrToInt(edt2.Text);
  BB.fInc(x);               //unit BB 的函数fInc  注意:不是fmBB.fInc
  edt2.Text:=IntToStr(x);
end;

//==============================================================================
procedure TfmAA.btnInc10Click(Sender: TObject);
var x: word;
begin
  x:=StrToInt(edt2.Text);
  fInc(x);                  //本unit 的函数fInc
  edt2.Text:=IntToStr(x);
end;

//==============================================================================
procedure TfmAA.btnPowClick(Sender: TObject);
var v: word;
begin
//  v:=BB.fPow(9);    BB的impl,,,里定义的，不可引用
//  v:=fmBB.fPow(9);  BB的impl,,,里定义的，不可引用
  v:=BB.fPow00(9);  //BB的interface里定义的，可引用

  LbR.Caption:=IntToStr(v);     // IntToStr 是 系统函数 （Function）
end;

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


end.