DObject O/R Mapping persistence layer supports resetting object state, you can Reset object state to what it was the last committed or original at any moment:
|
var region : IRegion; msg : string; begin msg := ''; region := TRegion.Create(ObjectManager); region.RegionID := -999; region.RegionDescription
:=
'-999'; msg := msg + Format('RegionDescription
before reset is "%s" ', [region.RegionDescription]); region.Reset; msg := msg + Format(', after reset
is "%s" ', [region.RegionDescription]); StatusBar.SimpleText := msg; end; |
|
--output result-- |
|
RegionDescription before reset is "-999" , after reset is "" |
Related Topics