Data Types
This commit is contained in:
@@ -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;
|
||||
|
||||
Reference in New Issue
Block a user