16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
var
bValue:Boolean; // 局部变量,仅在本子程序中有效
begin
If Not bValue Then Exit; // bValue 默认 true 通过
bValue:=True; // 本句无意义 bValue已是True
ShowMessage('这是测试'); // 显示
bValue:=False; // bValue赋值 False 无意义
end;
这是个人的测试用的代码,是不完善的代码。不必追求何意义。