创建一个简单的对象

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.