Data Types

This commit is contained in:
Michael Schimmel
2025-08-25 14:48:06 +02:00
parent ce653c83b1
commit c9e28a946d
10 changed files with 374 additions and 3 deletions
+6
View File
@@ -16,6 +16,7 @@ type
// IDataValue
function GetDataType: IDataType;
function GetAsString: string;
// IDataFloatValue
function GetValue: Double;
@@ -49,6 +50,11 @@ begin
Result := TImplDataFloatType.Singleton;
end;
function TImplDataFloatValue.GetAsString: string;
begin
Result := FloatToStr(FValue);
end;
function TImplDataFloatValue.GetValue: Double;
begin
Result := FValue;