Browse Source

* deprecated warning fixed

florian 3 years ago
parent
commit
6ea4ddd3d5
1 changed files with 2 additions and 2 deletions
  1. 2 2
      packages/libtar/src/libtar.pp

+ 2 - 2
packages/libtar/src/libtar.pp

@@ -16,7 +16,7 @@ Subject : Handling of "tar" files
 ===============================================================================================
 ===============================================================================================
 Author  : Stefan Heymann
 Author  : Stefan Heymann
           Eschenweg 3
           Eschenweg 3
-          72076 Tübingen
+          72076 T�bingen
           GERMANY
           GERMANY
 
 
 E-Mail:   [email protected]
 E-Mail:   [email protected]
@@ -305,7 +305,7 @@ BEGIN
      IF SearchRec.Attr AND faDirectory = 0 THEN BEGIN
      IF SearchRec.Attr AND faDirectory = 0 THEN BEGIN
        FillChar(TimeVal, SizeOf(TimeVal), #0);
        FillChar(TimeVal, SizeOf(TimeVal), #0);
        FillChar(TimeZone, SizeOf(TimeZone), #0);      
        FillChar(TimeZone, SizeOf(TimeZone), #0);      
-       Result := FileDateToDateTime (SearchRec.Time);
+       Result := SearchRec.TimeStamp;
        {$IFDEF Kylix}
        {$IFDEF Kylix}
        GetTimeOfDay (TimeVal, TimeZone);
        GetTimeOfDay (TimeVal, TimeZone);
        {$ELSE}
        {$ELSE}