procedure TForm1.ToolButton1Click(Sender: TObject);
begin
// TToolButton(Sender).Down := not odd(TToolButton(Sender).Tag);
// TToolButton(Sender).Tag := TToolButton(Sender).Tag + 1;
TToolButton(Sender).Down := not Boolean(TToolButton(Sender).Tag);
TToolButton(Sender).Tag := Integer(TToolButton(Sender).Down);
end;
注释的两行是网友写的代码,存在着溢出隐患,所以自己改写成下面的两行了。
本文介绍了一段用于切换TToolButton状态的Delphi代码,并指出原代码中可能存在的整数溢出风险。作者提供了修改后的代码实现,确保状态切换逻辑正确且安全。
5499

被折叠的 条评论
为什么被折叠?



