本文整理自网络,侵删。
今天新学习了一个 编译变量$REGION,用于在delphi2006以后版本的折叠代码显示,非常方便。
procedure TForm2.Button1Click(Sender: TObject);
var
uStr: UnicodeString;
begin
{$REGION '显示uStr变量内容'}
uStr := 'ok';
ShowMessage(uStr);
{$ENDREGION}
end;
折叠代码后显示如下
相关阅读 >>
Delphi richedit memo1支持中文搜索、向上查找、区分大小写
Delphi 文件/流的加密解密单元 unit_compress.pas
Delphi tnethttpclient https忽略证书验证
Delphi 中 image 控件加载bmp、jpg、gif、png等图片的办法
更多相关阅读请进入《Delphi》频道 >>