property xx：类型 read getxxx write setxxx；

Question

get是从哪里获取值？set是怎么设置值？

Answer 1

FName:string;
procedure SetName(Value:string);
function GetName:String;property Name:string read GetName write SetName;
procedure TMy.SetName(Value:string)
begin
  FName := Value;
end;function TMy.GetName;
begin
  Result := FName;
end;调用,假如有一个实例my:TMy
访问 my.Name (调用GetName)
    my.Name := 'abc' (调用SetName,参数Value就是'abc')

Answer 2

get 从返回result 获取
set 从参数const value ：类型 设置