| property EditText: string read GetEditText write SetEditText;
// <-- 我的推荐用法；
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] | 
