ucreateman.pas

Delphi面向对象编程思想附书源码 好用哦！

unit uCreateMan;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    edtName: TLabeledEdit;
    edtAge: TLabeledEdit;
    edtSkinColor: TLabeledEdit;
    edtLanguage: TLabeledEdit;
    ckbMarried: TCheckBox;
    Button1: TButton;
    btnGreet: TButton;
    procedure Button1Click(Sender: TObject);
    procedure btnGreetClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses uCreateManClass;
var
  AMan:TMan;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  AMan:=TMan.create;
  edtName.Text:=AMan.Name;
  edtAge.Text:=IntToStr(AMan.Age);
  edtLanguage.Text:=AMan.Language;
  edtSkinColor.Text:=AMan.SkinColor;
  ckbMarried.Checked:=AMan.Married;
  btnGreet.Visible :=true;
end;

procedure TForm1.btnGreetClick(Sender: TObject);
begin
  AMan.sayHello('你好！');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  AMan.free;
end;

end.