Browse Source

Fix order of parameters of FillChar

Pierre Muller 2 years ago
parent
commit
ef5a32ab95
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/objpas/sysutils/dati.inc

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

@@ -1278,7 +1278,7 @@ begin
   DecodeDateFully(DateTime, Year, Month, Day, DayOfWeek);
   DecodeTime(DateTime, Hour, Minute, Second, MilliSecond);
   ResultLen := 0;
-  FillChar(ResultBuffer,0,SizeOf(ResultBuffer));
+  FillChar(ResultBuffer,SizeOf(ResultBuffer),0);
   ResultCurrent := @ResultBuffer[0];
   if FormatStr <> '' then
     StoreFormat(FormatStr, 0, False)