unit1.~pas

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

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation
var
  df:Array[1..2,1..4]of Integer;  //定义一个全局数组变量

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  m,n:Integer;
begin
  Canvas.FillRect(Form1.ClientRect);//清除窗体上显示的成绩
  for m:=1 to 2 do
    for n:=1 to 3 do
      begin
        df[m,n]:=StrToInt(InputBox('请输入成绩','输入第'+IntToStr(m)+
          '个学生'+'第'+IntToStr(n)+'门课成绩','0'));//输入学生成绩 
        Canvas.TextOut(30+40*n,30+30*m,IntToStr(df[m,n]));//在指定位置显示成绩
      end;
  Canvas.TextOut(55,30,'语文');   //指定位置显示各门功课和学生甲乙
  Canvas.TextOut(95,30,'数学');
  Canvas.TextOut(135,30,'英语');
  Canvas.TextOut(175,30,'总成绩');
  Canvas.TextOut(25,60,'甲');
  Canvas.TextOut(25,90,'乙');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  m,n:Integer;
begin
  df[1,4]:=0;                   //在统计总成绩前使其等于零
  df[2,4]:=0;
  for m:=1 to 2 do
    for n:=1 to 3 do
      df[m,4]:=df[m,4]+df[m,n];
  Canvas.TextOut(190,60,IntToStr(df[1,4]));
  Canvas.TextOut(190,90,IntToStr(df[2,4]));
end;

end.