New type system

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

 uses
    System.SysUtils,
-    System.Rtti,
    System.Generics.Collections,
    Myc.Data.Types;

@@ -47,7 +46,6 @@ type
        FValue: TDataMethodProc;
        function GetDataType: IDataType;
        function GetAsString: string;
-        function AsTValue: TValue;
        function GetValue: TDataMethodProc;
    public
        constructor Create(const ADataType: IDataMethodType; const AValue: TDataMethodProc);
@@ -180,11 +178,6 @@ begin
    Result := '<METHOD>';
 end;

-function TImplDataMethodValue.AsTValue: TValue;
-begin
-    Result := TValue.From<TDataMethodProc>(FValue);
-end;
-
 function TImplDataMethodValue.GetValue: TDataMethodProc;
 begin
    Result := FValue;