paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 04:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add some Delphi compatibel constants to the ConvUtils unit bug 39771

Browse Source 
(cherry picked from commit f2c8018f9b)
This commit is contained in:
marcoonthegit 2022-06-06 23:13:27 +02:00
parent 29c4108309
commit 9b59a5ede5
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/rtl-objpas/src/inc/convutil.inc
View File

@ -37,6 +37,11 @@ Type TConvType = type Integer;
TConvUtilFloat = double;
EConversionError = class(EConvertError);
const
CIllegalConvFamily = TConvFamily(0);
CIllegalConvType = TConvType(0);
GConvUnitToStrFmt: string = '%f %s';
Function RegisterConversionFamily(Const S : String):TConvFamily;
Function RegisterConversionType(Fam:TConvFamily;Const S:String;Value:TConvUtilFloat):TConvType;
Function RegisterConversionType(Fam:TConvFamily;Const S:String;const AToCommonFunc, AFromCommonFunc: TConversionProc): TConvType;
@ -259,7 +264,7 @@ end;
function ConvTypeToFamily(const AType: TConvType): TConvFamily;
begin
result:=0; // CIllegalConvFamily according to Tokyo docs.
result:=CIllegalConvFamily;
if AType<length(TheUnits) then
result:=TheUnits[AType].Fam;
end;