TDecimal fix
This commit is contained in:
@@ -5,8 +5,7 @@ interface
|
||||
uses
|
||||
System.SysUtils,
|
||||
Myc.Data.Scalar,
|
||||
Myc.Data.Series,
|
||||
Myc.Data.Decimal;
|
||||
Myc.Data.Series;
|
||||
|
||||
type
|
||||
TDataValueKind = (vkVoid, vkScalar, vkInterface, vkText, vkSeries, vkRecordSeries, vkRecord, vkMemberSeries, vkGeneric);
|
||||
@@ -94,7 +93,7 @@ end;
|
||||
function TDataValue.AsVal<T>: TVal<T>;
|
||||
begin
|
||||
if (FKind <> vkGeneric) then
|
||||
raise EInvalidCast.Create('Cannot read value as ' + PTypeInfo(TypeInfo(T)).Name + '.');
|
||||
raise EInvalidCast.Create('Cannot read value as ' + String(PTypeInfo(TypeInfo(T)).Name) + '.');
|
||||
Result := TVal<T>(FInterface);
|
||||
end;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user