Adding Pipes

Src/Myc.Trade.DataFeed.pas

@@ -168,6 +168,7 @@ type
         function GetCount: Integer;
         function GetItems(Idx: Integer): TPair<IKeyword, TScalar>;
         function GetFields(const Key: IKeyword): TScalar;
+        function GetDef: IScalarRecordDefinition;
     public
         constructor Create(const ADef: IScalarRecordDefinition);
         procedure SetData(const AData: TScalar.PValue); inline;
@@ -191,6 +192,11 @@ begin
     Result := FDef.Count;
 end;
 
+function TScalarRecordView.GetDef: IScalarRecordDefinition;
+begin
+    Result := FDef;
+end;
+
 function TScalarRecordView.GetFields(const Key: IKeyword): TScalar;
 var
     idx: Integer;