T ype Tdays-(mon, tue, wed, thu, fri, sat, sun) TForml= class(tForm) 单 Button TButton procedure Buttonl Click( Sender: TObject) 元 private i Private declarations j public i Public declarations I end Temp -class( tobject) 自定义对象 name: string[ 10] Integer function total integer end,Type Tdays=(mon,tue,wed,thu,fri,sat,sun); TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; Temp =class(tobject) 自定义对象 name: string[10]; sal: integer; function total : integer; end; 单 元