Delphi7 (Day 1: writing classes)

All evil Delphi, writing too slow .....

Pascal, The begin .. End

I guess! There is no user-friendly design at all. I will go.

Day 1

Program project1; {$ apptype console} uses sysutils, unit1 in 'pas \ unit1.pa'; var P: person; begin P: = person. create; p. setname ('delphi author '); p. setage (0); p. setsex ('Abnormal '); p. speak; readln; end.

Write classes

Unit unit1; interfacetype person = class private name: string; age: integer; Sex: string; public procedure setname (Name: string); function getname: string; Procedure setage (age: integer); function getage: integer; Procedure setsex (sex: string); function getsex: string; Procedure speak; end; implementation procedure person. setname (Name: string); Begin self. name: = Name; end; function person. getname: string; begin result: = self. name; end; Procedure person. setage (age: integer); Begin self. age: = age; end; function person. getage: integer; begin result: = self. age; end; Procedure person. setsex (sex: string); Begin self. sex: = sex; end; function person. getsex: string; begin result: = self. sex; end; Procedure person. speak; begin writeln ('Fuck, really slow write'); end.