虚心向大家请教几个构件企业逻辑层的基本问题，请大家指教。谢谢。

Question

向大家请教，
1，请大家贴一个在类型编辑器里面使用属性的例子，我定义了一个属性。
它出现两个，一个是PUT，一个是GET，具体怎么使用？请大家讲解一下。
2，在parameters下面我定义参数的时候IProvider**,Modifier[out,retval]
这样定义的参数的过程有什么用呢？

Answer 1

PUT里面写赋值，GET里面写取得这个值
function TCheckModle.Get_Cells(ACol, ARow: Integer): Double;
begin
   if  length(Feasygrid.CellS[ARow+FOffsetCol,ACol+FOffsetRow].ForeText)<=0 then
   begin
     Result:=0;
     exit;
   end;
   try
   Result:=strtofloat(Feasygrid.CellS[ARow+FOffsetCol,ACol+FOffsetRow].ForeText);
   except
     application.messagebox('请输入数字!','提示');
   end;
end;procedure TCheckModle.Set_Cells(ACol, ARow: Integer; Value: Double);
begin
   Feasygrid.AutoUpdate:=false;
   Feasygrid.CellS[ARow+FOffsetCol,ACol+FOffsetRow].ForeText:=floattostr(Value);
   Feasygrid.AutoUpdate:=true;
end;

Answer 2

out,retval型的参数在delphi和vb等环境下就成了该函数的返回值而不再是输出型的参数了