OldValue & NewValue

sinys

Member²
I use Delphi 2010, but think it's in all versions delphi:

- New project
- Add DBGrid1, OracleDataSet1, OracleSession1, TDataSource on form
- Add simple query in OracleDataSet1 "select t.id, t.rowid from table1 t"
- Add this cod:

Code:
procedure TForm1.OracleDataSet1BeforePost(DataSet: TDataSet);
begin
  ShowMessage(VarToStr(OracleDataSet1.FieldByName('ID').OldValue) + ' ' + VarToStr(OracleDataSet1.FieldByName('ID').NewValue));
end;

- Run programm
- Change value in DBGrid (7 => -100) and Post, got message "7 7"

Why OldValue = NewValue?
 
Last edited:
Back
Top