paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-22 05:19:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

SysUtils: SInvalidDateTime <> SInvalidDateTimeFloat

Browse Source 
git-svn-id: trunk@46747 -
This commit is contained in:
ondrej 2020-09-02 09:58:12 +00:00
parent 6a0ea119e9
commit bbdf1b5d27
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/objpas/sysconst.pp
View File

@ -68,7 +68,8 @@ const
SInvalidBoolean = '"%s" is not a valid boolean.';
SInvalidCast = 'Invalid type cast';
SinvalidCurrency = 'Invalid currency: "%s"';
SInvalidDateTime = '%f is not a valid date/time value.';
SInvalidDateTime = '"%s" is not a valid date/time value.';
SInvalidDateTimeFloat = '%f is not a valid date/time value.';
SInvalidDrive = 'Invalid drive specified';
SInvalidFileHandle = 'Invalid file handle';
SInvalidFloat = '"%s" is an invalid float';

3
rtl/objpas/sysutils/stre.inc
View File

@ -48,7 +48,8 @@ Const
SInvalidArgIndex = 'Invalid argument index in format "%s"';
SInvalidBoolean = '"%s" is not a valid boolean.';
SInvalidCast = 'Invalid type cast';
SInvalidDateTime = '%f is not a valid date/time value.';
SInvalidDateTime = '"%s" is not a valid date/time value.';
SInvalidDateTimeFloat = '%f is not a valid date/time value.';
SInvalidDrive = 'Invalid drive specified';
SInvalidFileHandle = 'Invalid file handle';
SInvalidFloat = '"%s" is an invalid float';

2
rtl/objpas/sysutils/sysstr.inc
View File

@ -1924,7 +1924,7 @@ end;
Function FloatToDateTime (Const Value : Extended) : TDateTime;
begin
If (Value<MinDateTime) or (Value>MaxDateTime) then
Raise EConvertError.CreateFmt (SInvalidDateTime,[Value]);
Raise EConvertError.CreateFmt (SInvalidDateTimeFloat,[Value]);
Result:=Value;
end;