From 89e47e098a9d83d15e960bce030e1968f04ca544 Mon Sep 17 00:00:00 2001 From: svenbarth Date: Mon, 14 Aug 2017 20:28:41 +0000 Subject: [PATCH] * better handling of floating point types git-svn-id: trunk@36908 - --- packages/rtl-objpas/src/inc/rtti.pp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp index 345b45aa9e..63baaf0b75 100644 --- a/packages/rtl-objpas/src/inc/rtti.pp +++ b/packages/rtl-objpas/src/inc/rtti.pp @@ -508,7 +508,10 @@ begin tkFloat : begin case GetTypeData(ATypeInfo)^.FloatType of ftCurr : result.FData.FAsCurr := PCurrency(ABuffer)^; + ftSingle : result.FData.FAsSingle := PSingle(ABuffer)^; ftDouble : result.FData.FAsDouble := PDouble(ABuffer)^; + ftExtended: result.FData.FAsExtended := PExtended(ABuffer)^; + ftComp : result.FData.FAsComp := PComp(ABuffer)^; end; end; else @@ -563,6 +566,7 @@ begin if Kind = tkFloat then begin case TypeData^.FloatType of + ftSingle : result := FData.FAsSingle; ftDouble : result := FData.FAsDouble; ftExtended : result := FData.FAsExtended; else