paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:19:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed 18183

Browse Source 
git-svn-id: trunk@17225 -
This commit is contained in:
michael 2011-04-02 15:41:39 +00:00
parent be484359b8
commit f235e4c116
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/objpas/sysutils/dati.inc
View File

@ -358,7 +358,7 @@ var
c:word;
dp,mp,yp,which : Byte;
s1:string[4];
values:array[1..3] of longint;
values:array[0..3] of longint;
LocalTime:tsystemtime;
YearMoreThenTwoDigits : boolean;
begin
@ -402,12 +402,6 @@ begin
end;
end;
end;
if Which<>3 then
begin
FixErrorMsg(SErrIllegalDateFormatString,useformat);
Exit;
end;
{ Get actual values }
for i := 1 to 3 do
values[i] := 0;
s1 := '';
@ -448,6 +442,11 @@ begin
Exit;
end;
end ;
if (Which<3) and (N>Which) then
begin
FixErrorMsg(SInvalidDateFormat,s);
Exit;
end;
// Fill in values.
getLocalTime(LocalTime);
ly := LocalTime.Year;