paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 09:18:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed strtotime. Last character was never taken into account

Browse Source 
git-svn-id: trunk@12005 -
This commit is contained in:
michael 2008-11-01 11:05:21 +00:00
parent dfda298172
commit 65637e301f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -457,7 +457,7 @@ var
begin
result := -1;
Inc(Current);
while (result = -1) and (Current < Len) do
while (result = -1) and (Current <= Len) do
begin
if S[Current] in ['0'..'9'] then
begin