DataRecord

2025-07-17 23:00:56 +02:00
parent a896b7fcf0
commit d2c47843a7
6 changed files with 752 additions and 3 deletions
@@ -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