属性就像是一个数据成员,它定义了对象的一个特征。但数据成员仅仅是一个存储位置,它的内容可以被查看和修改,而属性通过读写它的值与特定的过程(函数)关联起来,保证了对这个值的读写是安全的、可以控制的。属性Property的基本格式如下:
property 属性名 : 属性值类型 read 属性读函数/属性值变量 write 属性写函数/属性值变量
type
TUserInfo = class
private
//此处的变量就是字段,又因为字段的单词是 Field,所以字段一般以 F 开头
FName: String;
FAge: Integer;
procedure FSetAge(theAge: Integer);
public
//使用 property 定义属性
property Name: string read FName;
property Age: Integer read FAge write FSetAge;
end;
//注意:属性类型和字段类型必须相同
property Color:TColor read GetColor write SetColor;
则GetColor方法必须被声明为:
function GetColor:TColor;
则SetColor方法必须被声明为:
procedure SetColor (value:TColor);
procedure SetColor (const Value:TColor );
标签:SetColor,read,write,字段,TColor,property,属性
From: https://www.cnblogs.com/DQ-MINE/p/17123326.html