New type system
This commit is contained in:
@@ -4,7 +4,6 @@ interface
|
||||
|
||||
uses
|
||||
System.SysUtils,
|
||||
System.RTTI,
|
||||
Myc.Data.Types;
|
||||
|
||||
type
|
||||
@@ -18,7 +17,6 @@ type
|
||||
// IDataValue
|
||||
function GetDataType: IDataType;
|
||||
function GetAsString: string;
|
||||
function AsTValue: TValue;
|
||||
|
||||
class property Singleton: IDataVoidValue read FSingleton;
|
||||
end;
|
||||
@@ -42,13 +40,6 @@ type
|
||||
|
||||
implementation
|
||||
|
||||
{ TImplDataVoidValue }
|
||||
|
||||
function TImplDataVoidValue.AsTValue: TValue;
|
||||
begin
|
||||
Result := TValue.Empty;
|
||||
end;
|
||||
|
||||
class constructor TImplDataVoidValue.CreateSingleton;
|
||||
begin
|
||||
// Singleton instance created for the void value
|
||||
|
||||
Reference in New Issue
Block a user