编译变量$REGION,用于在delphi2006以后版本的折叠代码显示,非常方便。
procedure TForm1.Button1Click(Sender: TObject);var uStr: UnicodeString;begin{$REGION '显示uStr变量内容'} uStr := 'ok'; ShowMessage(uStr);{$ENDREGION}end;