From 65637e301f0880194b88b10a5fcc06c2b82191f0 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 1 Nov 2008 11:05:21 +0000
Subject: [PATCH] * Fixed strtotime. Last character was never taken into
 account

git-svn-id: trunk@12005 -
---
 rtl/objpas/sysutils/dati.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/sysutils/dati.inc b/rtl/objpas/sysutils/dati.inc
index 1ce15b3b9a..6b5bbcbccb 100644
--- a/rtl/objpas/sysutils/dati.inc
+++ b/rtl/objpas/sysutils/dati.inc
@@ -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