New type system

This commit is contained in:
Michael Schimmel
2025-08-26 15:49:28 +02:00
parent e9608a746a
commit 54d470b2f8
15 changed files with 58 additions and 364 deletions
-9
View File
@@ -26,9 +26,6 @@ type
implementation
uses
System.Rtti;
type
TImplDataEnumValue = class(TInterfacedObject, IDataEnumValue)
private
@@ -37,7 +34,6 @@ type
function GetDataType: IDataType;
function GetAsString: string;
function GetValue: Integer;
function AsTValue: TValue;
public
constructor Create(const ADataType: IDataEnumType; const AValue: Integer);
end;
@@ -123,9 +119,4 @@ begin
Result := FValue;
end;
function TImplDataEnumValue.AsTValue: TValue;
begin
Result := TValue.From<Integer>(FValue);
end;
end.