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页面上的一个评论中有一个热修复程序。

Answer 2

这在D2010上运行得很好，区别在哪里……

procedure TForm3.FloatValidate(Sender: TField);
begin
  if sender.AsFloat > 30 then Showmessage('No');

end;

procedure TForm3.Button1Click(Sender: TObject);
begin
   With Clientdataset1 do
    begin
      FieldDefs.add('ID',ftInteger,0);
      FieldDefs.add('Floatfield',ftFloat,0);
      Createdataset;
      Fields[1].OnValidate := FloatValidate;
    end;

end;

Answer 3

您可能希望检查Sender.NewValue是否包含您想要的值。如果客户端数据集上的更新缓存处于活动状态，则可以使用字段的OldValue、Value和NewValue。