paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Implement CompatibleConversionType and CompatibleConversionType for ConvUtils unit bug #39770

Browse Source
This commit is contained in:
marcoonthegit 2022-06-06 23:12:05 +02:00
parent 7886233b0e
commit 167f434e84
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -73,6 +73,8 @@ procedure GetConvFamilies(out AFamilies: TConvFamilyArray);
procedure GetConvTypes(const AFamily: TConvFamily; out ATypes: TConvTypeArray); procedure GetConvTypes(const AFamily: TConvFamily; out ATypes: TConvTypeArray);
function ConvTypeToFamily(const AType: TConvType): TConvFamily; function ConvTypeToFamily(const AType: TConvType): TConvFamily;
function CompatibleConversionType(const AType: TConvType; const AFamily: TConvFamily): Boolean;
function CompatibleConversionTypes(const AFrom, ATo: TConvType): Boolean;
Type Type
TConvTypeInfo = Class(Tobject) TConvTypeInfo = Class(Tobject)
@ -262,6 +264,19 @@ begin
result:=TheUnits[AType].Fam; result:=TheUnits[AType].Fam;
end; end;
function CompatibleConversionType(const AType: TConvType;
const AFamily: TConvFamily): Boolean;
begin
result:=ConvTypeToFamily(AType)=AFamily;
end;
function CompatibleConversionTypes(const AFrom, ATo: TConvType): Boolean;
begin
result:=ConvTypeToFamily(AFrom)=ConvTypeToFamily(ATo);
end;
Function RegisterConversionFamily(Const S:String):TConvFamily; Function RegisterConversionFamily(Const S:String):TConvFamily;
var i,l : Longint; var i,l : Longint;