Sample SMA strategy

Src/Data/Myc.Data.Scalar.pas

@@ -144,19 +144,15 @@ type
 
     // A time series of scalar values of the same kind.
     TScalarSeries = record
+    private
+        FKind: TScalarKind;
+        FItems: TSeries<TScalarValue>;
     public
         // Creates a new scalar series.
         constructor Create(AKind: TScalarKind; const AItems: TSeries<TScalarValue>);
 
-        function GetKind: TScalarKind; inline;
-        function GetItems: TSeries<TScalarValue>; inline;
-
-        property Kind: TScalarKind read GetKind;
-        property Items: TSeries<TScalarValue> read GetItems;
-
-    strict private
-        FKind: TScalarKind;
-        FItems: TSeries<TScalarValue>;
+        property Kind: TScalarKind read FKind;
+        property Items: TSeries<TScalarValue> read FItems;
     end;
 
     TScalarMemberSeries = record
@@ -462,16 +458,6 @@ begin
     FItems := AItems;
 end;
 
-function TScalarSeries.GetKind: TScalarKind;
-begin
-    Result := FKind;
-end;
-
-function TScalarSeries.GetItems: TSeries<TScalarValue>;
-begin
-    Result := FItems;
-end;
-
 { TScalarTupleSeries }
 
 constructor TScalarTupleSeries.Create(const ADef: TArray<TScalarKind>);