DataRecord

AuraTrader/AuraTrader.dpr

@@ -13,7 +13,7 @@ uses
     Myc.FMX.Chart.Series in '..\Src\Myc.FMX.Chart.Series.pas',
     Myc.Trade.Indicators in '..\Src\Myc.Trade.Indicators.pas',
     Myc.Trade.Types in '..\Src\Myc.Trade.Types.pas',
-    Myc.DirectoryMonitor in '..\Src\Myc.DirectoryMonitor.pas';
+    Myc.DataRecord in '..\Src\Myc.DataRecord.pas';
 
 {$R *.res}
 

AuraTrader/AuraTrader.dproj

@@ -141,7 +141,7 @@
         <DCCReference Include="..\Src\Myc.FMX.Chart.Series.pas"/>
         <DCCReference Include="..\Src\Myc.Trade.Indicators.pas"/>
         <DCCReference Include="..\Src\Myc.Trade.Types.pas"/>
-        <DCCReference Include="..\Src\Myc.DirectoryMonitor.pas"/>
+        <DCCReference Include="..\Src\Myc.DataRecord.pas"/>
         <BuildConfiguration Include="Base">
             <Key>Base</Key>
         </BuildConfiguration>

AuraTrader/MainForm.fmx

@@ -199,6 +199,14 @@ object Form1: TForm1
             AllowDrag = True
             Viewport.Width = 165.000000000000000000
             Viewport.Height = 682.000000000000000000
+            object Button1: TButton
+              Position.X = 56.000000000000000000
+              Position.Y = 72.000000000000000000
+              TabOrder = 0
+              Text = 'Button1'
+              TextSettings.Trimming = None
+              OnClick = Button1Click
+            end
           end
         end
       end

AuraTrader/MainForm.pas

@@ -79,11 +79,13 @@ type
         FlowLayout: TFlowLayout;
         StrategyButton: TSpeedButton;
         Strat2Button: TSpeedButton;
+        Button1: TButton;
         procedure FormCreate(Sender: TObject);
         procedure FormDestroy(Sender: TObject);
         procedure StopButtonClick(Sender: TObject);
         procedure TreeViewDblClick(Sender: TObject);
         procedure AddWorkspaceActionExecute(Sender: TObject);
+        procedure Button1Click(Sender: TObject);
         procedure Strat2ButtonClick(Sender: TObject);
         procedure TestActionExecute(Sender: TObject);
         procedure StrategyButtonClick(Sender: TObject);
@@ -129,7 +131,8 @@ implementation
 
 uses
     TestModule,
-    Myc.Trade.Indicators;
+    Myc.Trade.Indicators,
+    Myc.DataRecord;
 
 {$R *.fmx}
 
@@ -289,6 +292,11 @@ begin
     Control.Align := TAlignLayout.Top;
 end;
 
+procedure TForm1.Button1Click(Sender: TObject);
+begin
+    Myc.DataRecord.Testfunc;
+end;
+
 function TForm1.CreateStrategy2(Timeframe: TTimeframe): IMycProcessor<TDataPoint<TOhlcItem>>;
 type
     TSignal = record