diff --git a/packages/rtl-objpas/src/inc/convutil.inc b/packages/rtl-objpas/src/inc/convutil.inc index 43490b6742..e4fde3e800 100644 --- a/packages/rtl-objpas/src/inc/convutil.inc +++ b/packages/rtl-objpas/src/inc/convutil.inc @@ -397,8 +397,13 @@ begin ValueStr:=Copy(AText,1,P); if not TryStrToFloat(ValueStr, AValue) then Exit; - while AText[P]=#32 do Inc(P); - TypeStr:=Copy(AText,P,MaxInt); + //since there is no restriction on the description of a TConvType + //(it can be empty or have leading or trailing spaces) + //everything after the space at position P _must_ be the description + if P=Length(AText) then + TypeStr:='' + else + TypeStr:=Copy(AText,P+1,MaxInt); Result:=DescriptionToConvType(TypeStr, AType); end;