Преглед изворни кода

* Fixed strtotime. Last character was never taken into account

git-svn-id: trunk@12005 -
michael пре 17 година
родитељ
комит
65637e301f
1 измењених фајлова са 1 додато и 1 уклоњено
  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