Type
Tmyclass = Class (TObject)
Private
fmyname:string;
Fmyage:integer;
Procedure Setage (Age:integer);
function Getage (): Integer;
Published
Property myname:string read Fmyname write fmyname;
Property Myage:integer read Getage write setage;
End
Procedure Tmyclass.setage (Age:integer);
Begin
if (age < 0) or (age > $) Then
ShowMessage (' currently set age value: ' + inttostr ' + ' is not a valid age value ')
else fmyage: = age;
End
function TmyClass.GetAge:Integer;
Begin
Result: = Fmyage;
End
Test
Procedure Tform1.button1click (Sender:tobject);
Var
Ta:tmyclass;
Begin
TA: = tmyclass.create;
ShowMessage (' myname: ' + ta. MyName + ', myage: ' + inttostr (ta. MyAge));
Ta. MyName: = ' Tom ';
Ta. MyAge: =-10;
ShowMessage (' myname: ' + ta. MyName + ', myage: ' + inttostr (ta. MyAge));
Ta. MyAge: = 22;
ShowMessage (' myname: ' + ta. MyName + ', myage: ' + inttostr (ta. MyAge));
Ta.free;
End
How to use the Delphi property read writer