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

IScalarRecord

Browse Source
This commit is contained in:
Michael Schimmel
2025-12-09 14:05:00 +01:00
parent 5376f8924a
commit 235de7a7c5
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
AuraTrader/MainForm.pas
+1 -1
View File
@@ -371,7 +371,7 @@ begin
var kClose := TKeywordRegistry.Intern('Close'); var kClose := TKeywordRegistry.Intern('Close');
var def := var def :=
TScalarRecordRegistry.Intern( TScalarRecord.TRegistry.Intern(
[ [
TPair<IKeyword, TScalar.TKind>.Create(kTime, TScalar.TKind.DateTime), TPair<IKeyword, TScalar.TKind>.Create(kTime, TScalar.TKind.DateTime),
TPair<IKeyword, TScalar.TKind>.Create(kClose, TScalar.TKind.Float) TPair<IKeyword, TScalar.TKind>.Create(kClose, TScalar.TKind.Float)
Src/Data/Myc.Data.Scalar.pas
+2 -1
View File
@@ -144,9 +144,10 @@ type
TScalarRecordField = TPair<IKeyword, TScalar.TKind>; TScalarRecordField = TPair<IKeyword, TScalar.TKind>;
IScalarRecordDefinition = IKeywordMapping<TScalar.TKind>; IScalarRecordDefinition = IKeywordMapping<TScalar.TKind>;
IScalarRecord = IKeywordMapping<TScalar>; IScalarRecord = IKeywordMapping<TScalar>;
TScalarRecordRegistry = TKeywordMappingRegistry<TScalar.TKind>;
TScalarRecord = class(TInterfacedObject, IScalarRecord) TScalarRecord = class(TInterfacedObject, IScalarRecord)
type
TRegistry = TKeywordMappingRegistry<TScalar.TKind>;
private private
FDef: IScalarRecordDefinition; FDef: IScalarRecordDefinition;
FData: TArray<TScalar.TValue>; FData: TArray<TScalar.TValue>;