创建一个简单的对象

单元一代码：

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.

 

单元二代码：

unit uCreateManClass;

interface

uses
  Dialogs;

type
  TMan = class (TObject)
  private
    FAge: Integer;
    procedure SetAge(Value: Integer);
  public
    Language: string;
    Married: Boolean;
    Name: string;
    SkinColor: string;
    constructor create; overload;
    property Age: Integer read FAge write SetAge;
    procedure sayHello(words:pchar);
  end;


implementation

{
************************************* TMan *************************************
}
constructor TMan.create;
begin
  Name:='张三';
  Language:='中文';
  SkinColor:='黄色';
  FAge:=20;
  Married:=True;
end;

procedure TMan.SetAge(Value: Integer);
begin
  if Value<2 then FAge:=0
  else FAge:=Value;
end;

procedure TMan.SayHello(Words:PChar);
begin
   showmessage(words);
end;

end.