TSpinEdit的漏洞

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

最近在使用Samples页中的SpinEdit控件时,发现SpinEdit的最大值(MaxValue)和最小值(MinValue)的处理有漏洞。当最大值和最小值相等且不为零时,设置形同虚设;当最大值小于最小值时,SpinEdit的取值为最大值和最小值。查看Spin.pas时发现,SpinEdit的CheckValue函数如下:

function TSpinEdit.CheckValue (NewValue: LongInt): LongInt;

begin

Result := NewValue;

if (FMaxValue <> FMinValue) then

begin

if NewValue < FMinValue then

Result := FMinValue

else if NewValue > FMaxValue then

Result := FMaxValue;

end;

end;

可见没有对MaxValue = MinValue 且MinValue <> 0 及 MaxValue < MinValue 进行处理。所以在使用SpinEdit控件时应该在程序中对上述两种情况进行必要的处理。

我在发现这个问题的之前花费了不少时间调试程序,以为是代码的问题。结果发现是个BUG。这个问题可能早就有人发现并提出来了,只不过我没有看到而已。不过我还是把它贴出来,希望其他朋友不要在这个问题上浪费时间。呵呵,其实私底下还是想赚分的:)。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航