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

{$R *.dfm}
type
  sz=Record
    name:String;
    sr,zc:Real;
end;
var
  jt:Array[1..3]of sz;

procedure TForm1.Button1Click(Sender: TObject);
var 
  k:Integer;
begin
  for k:=1 to 3 do
    begin
      jt[k].name:=InputBox('请输入成员名','第'+IntToStr(k)+'个成员名','');
      jt[k].sr:=StrToFloat(InputBox('请输入收入金额','第'+IntToStr(k)+
        '个成员收入','0'));
      jt[k].zc:=StrToFloat(InputBox('请输入支出金额','第'+IntToStr(k)+
        '个成员支出','0'));
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  k:Integer;
  jy:Real;
begin
  jy:=0;
  Canvas.TextOut(35,15,'成员  收入  支出');
  for k:=1 to 3 do
    begin
      Canvas.TextOut(35,15+20*k,jt[k].name+'  '+FloatToStr(jt[k].sr)+'  '
        +FloatToStr(jt[k].zc));
      jy:=jy+jt[k].sr-jt[k].zc;
    end;
  Canvas.TextOut(35,95,'该家庭节余金额：'+FloatToStr(jy)+'元');
end;

end.