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

* Fixed TryStrToDateTime so it returns True only if both date and time are parsed successfully, resolves #17541.

Browse Source 
git-svn-id: trunk@16099 -
This commit is contained in:
sergei 2010-10-07 09:48:18 +00:00
parent 69d85d5b2d
commit 6a9a991dca
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1294,7 +1294,7 @@ var
I: integer;
dtdate, dttime :TDateTime;
begin
result:=true;
result:=false;
I:=Pos(FormatSettings.TimeSeparator,S);
If (I>0) then
begin
@ -1307,6 +1307,7 @@ begin
if not TryStrToTime(Copy(S,i+1, Length(S)-i),dttime,Formatsettings) then
exit;
Value:=ComposeDateTime(dtdate,dttime);
result:=true;
end
else
result:=TryStrToTime(s,Value,Formatsettings);