New type system

2025-08-26 15:49:28 +02:00
parent e9608a746a
commit 54d470b2f8
15 changed files with 58 additions and 364 deletions
@@ -36,7 +36,6 @@ implementation

 uses
    System.SysUtils,
-    System.Rtti,
    System.Math;

 type
@@ -50,7 +49,6 @@ type
        // IDataValue
        function GetDataType: IDataType;
        function GetAsString: string;
-        function AsTValue: TValue;

        // IDataDecimalValue
        function GetValue: Int64;
@@ -115,11 +113,6 @@ begin
    FDataType := ADataType;
 end;

-function TDataDecimalValue.AsTValue: TValue;
-begin
-    Result := TValue.From<Int64>(FValue);
-end;
-
 function TDataDecimalValue.GetAsString: string;
 var
    s: string;