This commit is contained in:
Michael Schimmel
2025-09-05 12:28:26 +02:00
parent 82a7b349b7
commit edf8329b28
+4 -4
View File
@@ -394,10 +394,10 @@ end;
procedure TForm1.OHLCButtonClick(Sender: TObject); procedure TForm1.OHLCButtonClick(Sender: TObject);
const const
numRecs = 1000000; numRecs = 100;
lookback = 100; lookback = 50;
smaSlowLength = 50; smaSlowLength = 20;
smaFastLength = 20; smaFastLength = 10;
begin begin
// 1. Setup // 1. Setup
Memo1.Lines.Clear; Memo1.Lines.Clear;