procedure TForm1.Button1Click(Sender: TObject);
var
uStr: UnicodeString;
begin
{$REGION '显示uStr变量内容'}
uStr := 'ok';
ShowMessage(uStr);
{$ENDREGION}
end;
Delphi 折叠代码编译变量$REGION
最新推荐文章于 2024-01-29 08:43:17 发布
procedure TForm1.Button1Click(Sender: TObject);
var
uStr: UnicodeString;
begin
{$REGION '显示uStr变量内容'}
uStr := 'ok';
ShowMessage(uStr);
{$ENDREGION}
end;