unit1.~pas

本光盘是《Delphi 7应用教程》一书的配套光盘

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
var
  RanNum:Array[1..5]of Integer;//定义全局数组变量下面的函数与过程都可调用

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  m:Integer;        //这是局部变量，只能在本函数或过程里使用
begin
  Randomize; //为产生互不相同的随机数，程序启动时调用一次Randomize过程
  Edit1.Text:='';      //清空编辑框
  Edit2.Text:='';
  Edit3.Text:='';
  for m:=1 to 5 do
    begin
      RanNum[m]:=Trunc(10+90*Random);  //随机产生10~99的整数
      Edit1.Text:=Edit1.Text+IntToStr(RanNum[m])+',';//将随机数赋给编辑框
    end;
  Edit1.Text:=Copy(Edit1.Text,1,Length(Edit1.Text)-1);//去掉最后一个逗号
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  max,n_max,m:Integer;   //这是局部变量，因此m可以同名
begin
  max:=RanNum[1];
  n_max:=1;
  for m:=2 to 5 do
    if (max<RanNum[m]) then
      begin
        max:=RanNum[m]; //如果max小于数组的某个元素，就将该元素值及其
        n_max:=m;       //下标赋给max和n_max
      end;
  Edit2.Text:=IntToStr(max);
  Edit3.Text:=IntToStr(n_max);
end;

end.