Delphi 面向對象程式設計：作用域與自訂程序函數（上）

同名識別符的遮蔽規則

編譯器自動綁定「最接近當前作用域」的識別符。開發者可在不同層級宣告同名識別符，內層宣告會遮蔽外層同名項目。

全域變數與初始化區段

單元層級的全域變數通常置於 implementation 後的 var 區段。為確保邏輯正確（如按鈕點擊計數器），需在單元結尾的 initialization 區段進行初始化：

implementation
var
  Count: Integer;

initialization
  Count := 0;

面向物件寫法可將此類狀態封裝為表單欄位（field），詳見後續章節。

撰寫自訂程序與函數

將重複邏輯抽離為獨立程序/函數，優點：程式碼複用、結構清晰、維護容易。函數以 function 開頭並指定回傳型別；程序以 procedure 開頭。參數列表用分號分隔，同型別參數可合併：procedure ValidateDate(Day, Month, Year: Integer);

實用範例：輸入驗證函數

function NoValue(AnEditBox: TEdit): Boolean;
begin
  if AnEditBox.Text = '' then
  begin
    AnEditBox.Color := clRed;
    AnEditBox.Text := '請輸入整數值';
    Result := True;
  end
  else
  begin
    AnEditBox.Color := clWindow;
    Result := False;
  end;
end;

事件處理程序中調用：if NoValue(Edit1) or NoValue(Edit2) then Exit; 實現防呆邏輯。

區域型別宣告與排序慣例

程序/函數內可宣告區域型別（type）、變數（var）、常數（const）。慣例順序：型別 → 變數 → 常數，但只要位於標題之後、執行碼之前即合法。型別名稱慣用 T 開頭（如 TPrimaryColor），便於識別。