IScalarRecord

2025-12-09 14:05:00 +01:00
parent 5376f8924a
commit 235de7a7c5
2 changed files with 3 additions and 2 deletions
@@ -371,7 +371,7 @@ begin
    var kClose := TKeywordRegistry.Intern('Close');

    var def :=
-        TScalarRecordRegistry.Intern(
+        TScalarRecord.TRegistry.Intern(
            [
                TPair<IKeyword, TScalar.TKind>.Create(kTime, TScalar.TKind.DateTime),
                TPair<IKeyword, TScalar.TKind>.Create(kClose, TScalar.TKind.Float)
@@ -144,9 +144,10 @@ type
    TScalarRecordField = TPair<IKeyword, TScalar.TKind>;
    IScalarRecordDefinition = IKeywordMapping<TScalar.TKind>;
    IScalarRecord = IKeywordMapping<TScalar>;
-    TScalarRecordRegistry = TKeywordMappingRegistry<TScalar.TKind>;

    TScalarRecord = class(TInterfacedObject, IScalarRecord)
+        type
+            TRegistry = TKeywordMappingRegistry<TScalar.TKind>;
    private
        FDef: IScalarRecordDefinition;
        FData: TArray<TScalar.TValue>;