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

* Allow descendents to copy row using fieldmapper

Browse Source
This commit is contained in:
michael 2020-11-01 12:09:23 +00:00
parent 25cd5e607a
commit 5fdeab5490
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -35,6 +35,7 @@ type
// This class is responsible for mapping the field objects of the records.
TJSONFieldMapper = Class(TObject)
Public
Function CopyRow(aRow : JSValue) : JSValue; virtual;
// Remove a field from the
Procedure RemoveField(Const FieldName : String; FieldIndex : Integer; Row : JSValue); virtual; abstract;
// Return row TJSONData instance with data for field 'FieldName' or 'FieldIndex'.
@ -993,6 +994,11 @@ end;
{ TJSONFieldMapper }
function TJSONFieldMapper.CopyRow(aRow: JSValue): JSValue;
begin
Result:=TJSJSON.parse(TJSJSON.stringify(aRow));
end;
function TJSONFieldMapper.GetJSONDataForField(F: TField; Row: JSValue ): JSValue;
begin
// This supposes that Index is correct, i.e. the field positions have not been changed.
@ -1459,7 +1465,7 @@ begin
FEditIdx:=FCurrentIndex.RecordIndex[FCurrent];
if not isUndefined(Rows[FEditIdx]) then
begin
FEditRow:=TJSJSON.parse(TJSJSON.stringify(Rows[FEditIdx]));
FEditRow:=FieldMapper.CopyRow(Rows[FEditIdx]);
RemoveCalcFields(FEditRow);
end
else
@ -1521,7 +1527,7 @@ begin
begin // Append
FDefaultIndex.Append(Idx);
for I:=0 to FIndexes.Count-1 do
if Assigned(FIndexes[i].Findex) then
if Assigned(FIndexes[i].Findex) then
begin
NewIdx:=FIndexes[i].Findex.Append(Idx);
if FIndexes[i].Findex=FCurrentIndex then