* set ShortDateFormat explicitly so that StrToDate behaviour can be tested easily regardless of current locale

git-svn-id: trunk@29703 -

tests/webtbs/tw3913.pp

@@ -4,6 +4,7 @@ uses
 var
   d : tdatetime;
 begin
+  ShortDateFormat := 'd/m/y';
   try
     d:=strtodate('03'+dateseparator+'03'+dateseparator+'2033');
   except