将面向对象的思想贯穿始终--谈Delphi开发（第二篇）

   // <-- 我的推荐用法；

  end;

……

function TForm2.GetEditText: string;

begin

  result := Edit1.Text;

end;

procedure TForm2.SetEditText(const Value: string);

begin

  if Value <> EditText then

    Edit1.Text := Value;

end;

这里的FAnotherForm是TForm1的一个私有属性，它是指向TForm2的一个实例的指针（这个用法在第一篇里做了强调）。访问TForm2的EditText 属性，而不是鲁莽的直接访问TForm2的Edit1.Text，体现了一种思想，那就是分工协作的思想，那就是独立自主的思想，也就是封装性的思想。

（未完，待续）

更多文章

上一页  [1] [2] 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18