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的属性。