Bläddra i källkod

* Fix bug ID #33860

git-svn-id: trunk@39330 -
michael 7 år sedan
förälder
incheckning
58b480e0b2
1 ändrade filer med 2 tillägg och 1 borttagningar
  1. 2 1
      rtl/objpas/sysutils/dati.inc

+ 2 - 1
rtl/objpas/sysutils/dati.inc

@@ -796,6 +796,7 @@ function SplitDateTimeStr(DateTimeStr: AnsiString; const FS: TFormatSettings; ou
 }
 const
   WhiteSpace = [#9,#10,#13,#32];
+  Space : String = #32; // String, to avoid error 'Cannot decide what overload to call'
 
 var
   p: Integer;
@@ -818,7 +819,7 @@ begin
     end;
   p:=1;
   //find separator
-  if (FS.DateSeparator<>#32) then
+  if Pos(Space,FS.DateSeparator)=0 then
     begin  
     while (p<Length(DateTimeStr)) and (not (DateTimeStr[p+1] in WhiteSpace)) do 
       Inc(p);