From c0995c2ffda96f2521439c61813d27bbd59b025e Mon Sep 17 00:00:00 2001 From: michael Date: Sat, 1 Oct 2011 14:42:54 +0000 Subject: [PATCH] * Moved string constant to sysconst git-svn-id: trunk@19315 - --- rtl/objpas/dateutil.inc | 2 +- rtl/objpas/sysconst.pp | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/rtl/objpas/dateutil.inc b/rtl/objpas/dateutil.inc index 362254a923..84422e8b87 100644 --- a/rtl/objpas/dateutil.inc +++ b/rtl/objpas/dateutil.inc @@ -1720,7 +1720,7 @@ end; function EncodeTimeInterval(Hour, Minute, Second, MilliSecond: word): TDateTime; begin If not TryEncodeTimeInterval(Hour,Minute,Second,MilliSecond,Result) then - Raise EConvertError.CreateFmt('%d:%d:%d.%d is not a valid time specification', + Raise EConvertError.CreateFmt(SerrInvalidHourMinuteSecMsec, [Hour,Minute,Second,MilliSecond]); end; diff --git a/rtl/objpas/sysconst.pp b/rtl/objpas/sysconst.pp index 4d79920320..c968eb36cb 100644 --- a/rtl/objpas/sysconst.pp +++ b/rtl/objpas/sysconst.pp @@ -36,6 +36,7 @@ resourcestring SDivByZero = 'Division by zero'; SEndOfFile = 'Read past end of file'; SErrInvalidDateMonthWeek = 'Year %d, month %d, Week %d and day %d is not a valid date.'; + SerrInvalidHourMinuteSecMsec = '%d:%d:%d.%d is not a valid time specification'; SErrInvalidDateWeek = '%d %d %d is not a valid dateweek'; SErrInvalidDayOfWeek = '%d is not a valid day of the week'; SErrInvalidDayOfWeekInMonth = 'Year %d Month %d NDow %d DOW %d is not a valid date';