1、考慮這樣一個場景。 我們的程式中有一個“選項”視窗，這個視窗包含很多選項。其中有一個選項是單選類型的，用戶可以從N個選項值中選擇一個。 我們需要在用戶單擊“確定”按鈕後把用戶選擇的值保存到文件中，程式下次啟動時再讀取到記憶體中。 2、不好的解決方案 通常情況下，我們會在按鈕單擊事件中寫類似下麵的代
1、考慮這樣一個場景。
我們的程式中有一個“選項”視窗，這個視窗包含很多選項。其中有一個選項是單選類型的，用戶可以從N個選項值中選擇一個。
我們需要在用戶單擊“確定”按鈕後把用戶選擇的值保存到文件中，程式下次啟動時再讀取到記憶體中。
2、不好的解決方案
通常情況下，我們會在按鈕單擊事件中寫類似下麵的代碼：
procedure TfrmOption.btnOKClick(Sender: TObject);
begin
if rb1.Checked then
// save value 1
else if rb2.Checked then
// save value 2
else if rb3.Checked then
// save value 3
end;
或者這樣：
procedure TfrmOption.btnOK2Click(Sender: TObject);
var
value: Integer;
begin
if rb1.Checked then
value := 1
else if rb2.Checked then
value := 2
else if rb3.Checked then
value := 3;
// save value
end;
這樣的代碼有什麼問題呢？
首先，如果這樣的選項一多，那 btnOKClick 中的代碼將會非常長，影響了可讀性。
其次，btnOKClick 的職責只是負責保存選項，而在上面的代碼中還多出了判斷選項值的職責。這在以後的維護中將會帶來邏輯上的混亂。
3、利用屬性封裝的方案
從邏輯上來講，“選項”這個功能可以分為三個部分。
一是選項值的保存與讀取，這部分可以單獨寫一個類，具體怎麼做超出了本文講解範圍，所以暫不做詳細解釋。
二是選項值的顯示與修改，只保存和讀取的選項值是沒有意義的，它們必須展示給用戶，讓用戶修改和查看才有意義。
第三部分也就是接下來我們要講的部分。因為保存下來的值一般是經過摘要的，利於存儲的。而展示給用戶的是經過擴展的，修飾的。
這一轉換過程已經體現在上面兩段代碼中：將單選按鈕（或者其他控制項）的狀態轉換為數字進行保存。或者反過來，根據數字的值設置不同單選按鈕的選中狀態。
前面說過了，btnOKClick 的職責是保存選項值，那剩下的職責給誰？給“選項”視窗。
我們可以這樣想。“選項”視窗除了負責展示和接受用戶對選項的修改，還擔負了將用戶的輸入轉換成方便存儲的值，同時還擔負了反向過程的職責。
而這個職責可以用屬性來實現，利用屬性將這個職責變為“選項”視窗的一部分，同時這也屏蔽了一些業務邏輯，有利於以後這個選項的擴展升級。
下麵是具體的代碼：
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
Vcl.StdCtrls;
type
TfrmOption = class(TForm)
btnOK: TButton;
rb1: TRadioButton;
rb2: TRadioButton;
rb3: TRadioButton;
btnOK2: TButton;
procedure btnOKClick(Sender: TObject);
private
function GetProp1: Integer;
procedure SetProp1(const Value: Integer);
{ Private declarations }
public
{ Public declarations }
procedure SaveOption(Name: string; Value: Integer);
property Prop1: Integer read GetProp1 write SetProp1;
end;
var
frmOption: TfrmOption;
implementation
{$R *.dfm}
procedure TfrmOption.btnOKClick(Sender: TObject);
begin
SaveOption('Prop1', Prop1);
end;
function TfrmOption.GetProp1: Integer;
begin
if rb1.Checked then
Result := 1
else if rb2.Checked then
Result := 2
else
Result := 3;
end;
procedure TfrmOption.SaveOption(Name: string; Value: Integer);
begin
end;
procedure TfrmOption.SetProp1(const Value: Integer);
begin
case Value of
1: rb1.Checked := True;
2: rb2.Checked := True;
else rb3.Checked := True;
end;
end;
end.
後記：為了方便講解，沒有把文中提到的那個選項設計為枚舉。更進一步的，可以用枚舉結合TRadioGroup控制項增強可維護性和可讀性。
