Expose GetDataPtr in IInfo

EricGrange · Jan 25, 2022 · cdcc279 · cdcc279
1 parent ab202c0
commit cdcc279
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/Source/dwsInfo.pas b/Source/dwsInfo.pas
@@ -38,6 +38,7 @@ interface
       function GetConstructor(const MethName: String; ExtObject: TObject): IInfo;
       function GetData : TData;
       function GetExternalObject: TObject;
+      function GetDataPtr : IDataContext;
       function GetMember(const s: String): IInfo;
       function GetFieldMemberNames : TStrings;
       function GetMethod(const s: String): IInfo;

diff --git a/Source/dwsInfoClasses.pas b/Source/dwsInfoClasses.pas
@@ -54,6 +54,7 @@    TInfo = class (TInterfacedObject, IUnknown, IInfo)
 
          function GetData : TData; virtual;
          function GetExternalObject : TObject; virtual;
+         function GetDataPtr : IDataContext; virtual;
          function GetMember(const s : String) : IInfo; virtual;
          function GetFieldMemberNames : TStrings; virtual;
          function GetMethod(const s : String) : IInfo; virtual;
@@ -415,6 +416,13 @@ function TInfo.GetExternalObject: TObject;
   raise Exception.CreateFmt(RTE_InvalidOp, ['ExternalObject', FTypeSym.Caption]);
 end;
 
+// GetDataPtr
+//
+function TInfo.GetDataPtr : IDataContext;
+begin
+   Result := FDataPtr;
+end;
+
 // GetMember
 //
 function TInfo.GetMember(const s : String) : IInfo;