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
@@ -21,9 +21,6 @@ type
implementation
uses
System.Rtti;
type
TImplDataTimestampValue = class(TInterfacedObject, IDataValue, IDataTimestampValue)
private
@@ -31,7 +28,6 @@ type
function GetDataType: IDataType;
function GetAsString: string;
function GetValue: TDateTime;
function AsTValue: TValue;
public
constructor Create(const AValue: TDateTime);
end;
@@ -81,9 +77,4 @@ begin
Result := FValue;
end;
function TImplDataTimestampValue.AsTValue: TValue;
begin
Result := TValue.From<TDateTime>(FValue);
end;
end.