Explorar el Código

* Fixed strtotime. Last character was never taken into account

git-svn-id: trunk@12005 -
michael hace 17 años
padre
commit
65637e301f
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  1. 1 1
      rtl/objpas/sysutils/dati.inc

+ 1 - 1
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