فهرست منبع

* Fix copy & paste error

Michaël Van Canneyt 2 سال پیش
والد
کامیت
03266e9057
1فایلهای تغییر یافته به همراه2 افزوده شده و 2 حذف شده
  1. 2 2
      packages/vcl-compat/src/system.ioutils.pp

+ 2 - 2
packages/vcl-compat/src/system.ioutils.pp

@@ -1398,8 +1398,8 @@ begin
      if isUTC then
        begin
        aCreate:=LocalTimeToUniversal(aCreate);
-       aWrite:=LocalTimeToUniversal(aCreate);
-       aAccess:=LocalTimeToUniversal(aCreate);
+       aWrite:=LocalTimeToUniversal(aWrite);
+       aAccess:=LocalTimeToUniversal(aAccess);
        end;
      end
    else