From a36ca2c7e3b4293e6604ae064607088aa4c80b10 Mon Sep 17 00:00:00 2001
From: Michael Schimmel <schimmel@mycelium.de>
Date: Fri, 12 Sep 2025 16:21:45 +0200
Subject: [PATCH] TDecimal fix

---
 Src/Data/Myc.Data.Decimal.pas | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/Src/Data/Myc.Data.Decimal.pas b/Src/Data/Myc.Data.Decimal.pas
index 9faa884..151cbe1 100644
--- a/Src/Data/Myc.Data.Decimal.pas
+++ b/Src/Data/Myc.Data.Decimal.pas
@@ -254,9 +254,7 @@ end;
 
 class operator TDecimal.Explicit(const A: TDecimal): Double;
 begin
-    var scale := A.GetScale;
-    var value := A.GetValue;
-    Result := value / PowersOf10[scale];
+    Result := A.GetValue / PowersOf10[A.GetScale];
 end;
 
 class function TDecimal.MaxValue(AScale: TScale): TDecimal;