소스 검색

* Add ResolveStatus to TResolveInfo

michael 5 년 전
부모
커밋
ba11536829
1개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  1. 2 0
      packages/fcl-db/db.pas

+ 2 - 0
packages/fcl-db/db.pas

@@ -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;