Example of getting started with classes (3): create and destroy

// Class unit person; interfaceuses dialogs; Type tperson = Class (tobject) Private fname: string; Fage: integer; Public constructor create (strname: string; intage: integer ); destructor destroy; override; function getname: string; function getage: integer; Procedure setname (const strname: string); Procedure setage (const intage: integer); end; implementation {tperson} constructor tperson. create (strname: Str Ing; intage: integer); begin inherited create; // The create here cannot be omitted, because the parameters are different from fname: = strname; If intage // test: Uses person; procedure tform1.button1click (Sender: tobject); var personone: tperson; begin personone: = tperson. create ('wy', 99); showmessage ('name: '+ personone. getname + '; age:' + inttostr (personone. getage); // name: WY; age: 99 personone. setname ('case'); personone. setage (100); showmessage ('name: '+ persono Ne. getname + '; age:' + inttostr (personone. getage); // name: In case; age: 100 personone. Free; // In case of greeting! End;