请问怎么在一个字段OnChange事件发生之前把他的值保存起来？

Question

我想在这个字段onchange之前保存下还没改变的值 请问要怎么做？
procedure TdataModule1.adoquery1UnitIDChange(Sender: TField);
begin
   
end;

Answer 1

在DataSet.BeforeScroll事件中保存吧

Answer 2

其实，只要数据没有Post，可以从OldValue得到procedure TForm1.ClientDataSet1ClientDataSet1Field1Change(Sender: TField);
var
  Save: Variant;
begin
  Save := TField(Sender).OldValue;
end;

Answer 3

Sender本身就是Field，还强制转换个啥,晕。

Answer 4

关键是query数据集有这个属性吗?

Answer 5

DataSet.BeforeScroll   这个只在第一次打开的时候执行，以后UnitID字段Change的时候就不执行了  不行啊Save := TField(Sender).OldValue;  这个OldValue值好象永远只存第一次的值  以后的改变了就没存了  
----------------
我要的功能是：
假如第一次是 米，然后onchange成公里，  把米存在FOldUnit里，然后再把改变后的公里存在FNewUnit里  就是每一次change的时候把还没change前的Unit保存下来，然后再把change后的Unit也保存下来

Answer 6

你说的没错，BeforeScroll是整个记录改变时触发一次，而OldValue的值肯定只是第一次的值，但是，如果你改变了值，并且保存到数据集后，这个过程又重新开始了。所以，一般情况下，这就足够了。
    你上面说的功能我不明白要干什么，为什么改变了以后不保存到数据集？
    不过，你要的这个功能也很简单，第一次改变前或者改变时，你从BeforeScroll或者Oldvalue保存到FOldUnit，然后，在Field.OnChange事件中比较Field.Value和FOldUnit，如果不相等，你再重新保存阿，你甚至可以用List保存每一次的改变。

Answer 7

不知道搂住明白我上面的意思没有，就是说，为什么非是改变前保存，而不是改变时保存了？！思路要开拓一点啊！^_^顺便祝楼主新年好！
祝winxkm(蹩脚的程序员) 新年好！

Answer 8

procedure Tdtmda_CustSpePrice.adsMasterUnitIDChange(Sender: TField);
var
  //Column :TColumnEh;
  UnitName:string;
  exchangeRate:real;
begin
  inherited;
  if not (adsMaster.State in [dsEdit,dsInsert]) then exit;
  if adsMaster.FieldByName('UnitID').AsString='' then exit;  if FOldUnitID <> '' then
    exchangerate := getUnitChangeRate(adsMaster.FieldByName('ProductID').AsString,FOldUnitID, Sender.AsString)
  else exchangerate := 1;
  FOldUnitID:=  OldValue;    //**************************
  OldValue:= adsMaster.FieldByName('UnitID').AsString;//**************************end;
procedure Tdtmda_CustSpePrice.adsMasterAfterScroll(DataSet: TDataSet);
begin
  inherited;
  OldValue:=  DataSet.FieldByName('UnitID').AsString;
end;是这个意思 搞定了   谢谢楼上所有的XD，  新年快乐 祝自己安全度过本命年~