free pacal

标签：

TMyObject=class

              Private

                     Myvalue:integer;

                     Procedure SetMyvalue(avalue:integer);

              Public

                     Property value:integer read Myvalue write SetMyvalue;

       end;

       Procedure TMyObject.SetMyvalue(avalue:integer);

begin

             If Myvalue<>Avalue then

            Myvalue:= Avalue;

        end;

TMyObject是包含下列内容的类：一个域(名为Myvalue的整型数)、一个方法(名为SetMyvalue的过程)和一个名为value的属性。

free pacal

标签：

原文地址：http://www.cnblogs.com/tonyju/p/4292860.html