unit1.pas

来自「本光盘是《Delphi 7应用教程》一书的配套光盘」· PAS 代码 · 共 47 行

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Welcome(n:integer) ;  //参数n用来接收欢迎词的显示次数
  var
     i:integer;
begin
    For i:=1 to n do //显示n次欢迎词
       begin
          Form1.Memo1.text:=Form1.Memo1.text+'欢迎你进入Delphi世界！'+char(13)+char(10);
      end;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var
    n:integer;
begin
   Randomize; //随机数初始化
   n:=trunc(3+5*Random); //产生3~7之间的随机数
   Welcome(n); //调用过程显示欢迎词
end;

end.