From b446023e5b2655f9dad6a47462edc7062762f767 Mon Sep 17 00:00:00 2001 From: svenbarth Date: Sun, 24 Jan 2021 14:57:24 +0000 Subject: [PATCH] * use Str instead of IntToStr to avoid overload problems with unsigned types git-svn-id: trunk@48400 - --- rtl/objpas/sysutils/syshelpo.inc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/rtl/objpas/sysutils/syshelpo.inc b/rtl/objpas/sysutils/syshelpo.inc index 2f6efc6994..497d0ef508 100644 --- a/rtl/objpas/sysutils/syshelpo.inc +++ b/rtl/objpas/sysutils/syshelpo.inc @@ -18,7 +18,7 @@ end; Class Function TORDINALHELPER.ToString(const AValue: TORDINALTYPE): string; overload; inline; static; begin - Result:=IntToStr(AValue); + Str(AValue,Result); end; Class Function TORDINALHELPER.TryParse(const AString: string; out AValue: TORDINALTYPE): Boolean; inline; static; @@ -77,7 +77,7 @@ end; Function TORDINALHELPER.ToString: string; overload; inline; begin - Result:=IntToStr(Self); + Str(Self,Result); end; Function TORDINALHELPER.SetBit(const index: TORDINALBITINDEX) : TORDINALTYPE; inline;