paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-05 18:08:05 +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; function EncodeTimeInterval(Hour, Minute, Second, MilliSecond: word): TDateTime;
begin begin
If not TryEncodeTimeInterval(Hour,Minute,Second,MilliSecond,Result) then 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]); [Hour,Minute,Second,MilliSecond]);
end; end;

1
rtl/objpas/sysconst.pp
View File

@ -36,6 +36,7 @@ resourcestring
SDivByZero = 'Division by zero'; SDivByZero = 'Division by zero';
SEndOfFile = 'Read past end of file'; SEndOfFile = 'Read past end of file';
SErrInvalidDateMonthWeek = 'Year %d, month %d, Week %d and day %d is not a valid date.'; 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'; SErrInvalidDateWeek = '%d %d %d is not a valid dateweek';
SErrInvalidDayOfWeek = '%d is not a valid day of the week'; SErrInvalidDayOfWeek = '%d is not a valid day of the week';
SErrInvalidDayOfWeekInMonth = 'Year %d Month %d NDow %d DOW %d is not a valid date'; SErrInvalidDayOfWeekInMonth = 'Year %d Month %d NDow %d DOW %d is not a valid date';