paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-07 06:27:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Support OldValue

Browse Source
This commit is contained in:
michael 2018-06-23 17:08:56 +00:00
parent 431727c61e
commit 5113c4f198
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fcl-db/jsondataset.pas
View File

@ -777,9 +777,19 @@ var
begin
if (FEditIdx=Buffer.Bookmark) then
R:=FEditRow
begin
if State=dsOldValue then
R:=Buffer.data
else
R:=FEditRow
end
else
R:=Buffer.data;
begin
if State=dsOldValue then
Exit(Null)
else
R:=Buffer.data;
end;
Result:=FFieldMapper.GetJSONDataForField(Field,R);
end;