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

* Add ResolveStatus to TResolveInfo

Browse Source
This commit is contained in:
michael 2019-12-06 14:02:10 +00:00
parent 5dfaca424e
commit ba11536829
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/db.pas
View File

@ -1039,6 +1039,7 @@ type
TResolveInfo = record
Data : JSValue;
Status : TUpdateStatus;
ResolveStatus : TResolveStatus;
Error : String; // Only filled on error.
BookMark : TBookmark;
_private : JSValue; // for use by descendents of TDataset
@ -2915,6 +2916,7 @@ begin
Result.BookMark:=anUpdate.Bookmark;
Result.Data:=anUpdate.Data;
Result.Status:=anUpdate.Status;
Result.ResolveStatus:=anUpdate.ResolveStatus;
Result.Error:=anUpdate.ResolveError;
end;