Brummel/MycLib
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects 1 Releases Wiki Activity

Tuples

Browse Source
This commit is contained in:
Michael Schimmel
2026-01-04 17:06:59 +01:00
parent 8914d59607
commit a4afae6f39
10 changed files with 655 additions and 211 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ASTPlayground/ASTPlayground.delphilsp.json
+1 -1
View File
File diff suppressed because one or more lines are too long
ASTPlayground/MainForm.pas
+4 -4
View File
@@ -840,7 +840,7 @@ begin
var lastClose := 1000.0;
Randomize;
var recDef := TRttiAstHelper.JsonToRecordDefinition(TRttiAstHelper.RecordDefinitionToJson<TOHLCV>);
var series := TDataValue.FromRecordSeries(TScalarRecordSeries.Create(recDef));
var series := TScalarRecordSeries.Create(recDef) as IWriteableScalarRecordSeries;
var nw := Now;
var ohlcvRec: TOHLCV;
for var i := 1 to numRecs do
@@ -862,9 +862,9 @@ begin
values[5].AsInt64 := ohlcvRec.Volume;
recordValue := TScalarRecord.Create(recDef, values);
series.AsRecordSeries.Add(recordValue, lookback);
series.Add(recordValue, lookback);
if series.AsRecordSeries.TotalCount >= smaSlowLength then
if series.TotalCount >= smaSlowLength then
begin
env.RootScope[seriesAddress] := series;
@@ -1111,7 +1111,7 @@ begin
var testEnv := FEnvironment.CreateEnvironment;
testEnv.RootScope.Define('ohlcvSeries', TDataValue.FromRecordSeries(series));
testEnv.RootScope.Define('ohlcvSeries', series);
ast :=
TAst.LambdaExpr(