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

* Moved string constant to sysconst

Browse Source 
git-svn-id: trunk@19315 -
This commit is contained in:
michael 2011-10-01 14:42:54 +00:00
parent 394c9022b8
commit c0995c2ffd
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/dateutil.inc
View File

@ -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;

1
rtl/objpas/sysconst.pp
View File

@ -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';