浏览代码

Fix order of parameters of FillChar

Pierre Muller 2 年之前
父节点
当前提交
ef5a32ab95
共有 1 个文件被更改,包括 1 次插入1 次删除
  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);
   DecodeDateFully(DateTime, Year, Month, Day, DayOfWeek);
   DecodeTime(DateTime, Hour, Minute, Second, MilliSecond);
   DecodeTime(DateTime, Hour, Minute, Second, MilliSecond);
   ResultLen := 0;
   ResultLen := 0;
-  FillChar(ResultBuffer,0,SizeOf(ResultBuffer));
+  FillChar(ResultBuffer,SizeOf(ResultBuffer),0);
   ResultCurrent := @ResultBuffer[0];
   ResultCurrent := @ResultBuffer[0];
   if FormatStr <> '' then
   if FormatStr <> '' then
     StoreFormat(FormatStr, 0, False)
     StoreFormat(FormatStr, 0, False)