From 235de7a7c5c9d4c9d5ea420f5de01e7b4440e85e Mon Sep 17 00:00:00 2001
From: Michael Schimmel <schimmel@mycelium.de>
Date: Tue, 9 Dec 2025 14:05:00 +0100
Subject: [PATCH] IScalarRecord

---
 AuraTrader/MainForm.pas      | 2 +-
 Src/Data/Myc.Data.Scalar.pas | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/AuraTrader/MainForm.pas b/AuraTrader/MainForm.pas
index 5508475..565e720 100644
--- a/AuraTrader/MainForm.pas
+++ b/AuraTrader/MainForm.pas
@@ -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)
diff --git a/Src/Data/Myc.Data.Scalar.pas b/Src/Data/Myc.Data.Scalar.pas
index c45d60d..4e5ef80 100644
--- a/Src/Data/Myc.Data.Scalar.pas
+++ b/Src/Data/Myc.Data.Scalar.pas
@@ -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>;