delphi - TClientDataSet 的 OnValidate

Question

我正在尝试在 TClientDataSet 上的字段上编写 OnValidate 事件，类似于

procedure TForm8.ClientDataSet1MyFieldValidate(Sender: TField);
begin
  if Sender.AsFloat > 30 then
     raise Exception.Create('Too Much!!!');
end;

但是 Sender.AsFloat 始终为 0 - 我如何进行字段级验证(我意识到在这种情况下我可以使用约束或设置最小/最大值)

Answer 1

这是Delphi XE3中引入的一个错误，这里是QC report ，以及快速movie我已经清楚地说明了问题。希望这将在下次更新中得到解决。如果您需要立即修复此问题，QC 页面上的评论之一中有一个热修复程序。