TSpinEdit的漏洞

页面导航:首页 > 软件编程 > Delphi > TSpinEdit的漏洞

TSpinEdit的漏洞

来源: 作者: 时间:2016-01-23 10:15 【

最近在使用Samples页中的SpinEdit控件时,发现SpinEdit的最大值(MaxValue)和最小值(MinValue)的处理有漏洞。当最大值和最小值相等且不为零时,设置形同虚设;当最大值小于最小值时,SpinEdit的

最近在使用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。这个问题可能早就有人发现并提出来了,只不过我没有看到而已。不过我还是把它贴出来,希望其他朋友不要在这个问题上浪费时间。呵呵,其实私底下还是想赚分的:)。

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <