【控件功能】我来做练习-第43课-Objects example - Properties

Objects example - Properties

提示：对象的类属性

核心源码

`
type
MyClass = class
// Field must be declared before any other method
// private (remove the comment) to make fields and methods private to a class
CompanyName: string; // First name field
Address: string; // Last name field
FDailyProfit: double; // internal storage field
function GetProfit: double;
procedure SetProfit(const Value: double);
function GetDailyProfit: double;
published
function GetFullName: string; // function that returns the full name
property MonthlyProfit: double read GetProfit write SetProfit;
// Getter, setter
property DailyProfit: double read GetDailyProfit;
// Property monthly Pr