delphi property read writer 如何使用

2021-05-12 04:26

阅读：558

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  200) then
    ShowMessage(‘当前设置的年龄数值: ‘ + IntToStr(age) + ‘不是有效的年龄数值‘)
  else FMyAge := age;
end;
function TmyClass.GetAge: Integer;
begin
  Result := FMyAge;
end;
// 测试
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;

上一篇：C#认证考试第三章

下一篇：Windows 网络命令

文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：delphi property read writer 如何使用
文章链接：http://soscw.com/index.php/essay/84523.html

亲，登录后才可以留言！

delphi property read writer 如何使用

评论

热门文章

推荐文章

最新文章

置顶文章