Browse Source

TSearchRec.GetTimeStamp: fix ifdefs

git-svn-id: trunk@47395 -
ondrej 4 năm trước cách đây
mục cha
commit
33fe3f3ede
1 tập tin đã thay đổi với 6 bổ sung12 xóa
  1. 6 12
      rtl/objpas/sysutils/filutil.inc

+ 6 - 12
rtl/objpas/sysutils/filutil.inc

@@ -687,18 +687,16 @@ function TUnicodeSearchRec.GetTimeStamp: TDateTime;
 begin
 begin
 {$if declared(FindDataTimeToDateTime)}
 {$if declared(FindDataTimeToDateTime)}
   if not FindDataTimeToDateTime(FindData.ftLastWriteTime, Result) then
   if not FindDataTimeToDateTime(FindData.ftLastWriteTime, Result) then
-{$else}
-  Result := FileDateToDateTime(Time);
 {$endif}
 {$endif}
+    Result := FileDateToDateTime(Time);
 end;
 end;
 
 
 function TUnicodeSearchRec.GetTimeStampUTC: TDateTime;
 function TUnicodeSearchRec.GetTimeStampUTC: TDateTime;
 begin
 begin
 {$if declared(FindDataTimeToUTC)}
 {$if declared(FindDataTimeToUTC)}
   if not FindDataTimeToUTC(FindData.ftLastWriteTime, Result) then
   if not FindDataTimeToUTC(FindData.ftLastWriteTime, Result) then
-{$else}
-  Result := FileDateToUTC(Time);
 {$endif}
 {$endif}
+    Result := FileDateToUTC(Time);
 end;
 end;
 
 
 { TRawbyteSearchRec }
 { TRawbyteSearchRec }
@@ -707,18 +705,16 @@ function TRawbyteSearchRec.GetTimeStamp: TDateTime;
 begin
 begin
 {$if declared(FindDataTimeToDateTime)}
 {$if declared(FindDataTimeToDateTime)}
   if not FindDataTimeToDateTime(FindData.ftLastWriteTime, Result) then
   if not FindDataTimeToDateTime(FindData.ftLastWriteTime, Result) then
-{$else}
-  Result := FileDateToDateTime(Time);
 {$endif}
 {$endif}
+    Result := FileDateToDateTime(Time);
 end;
 end;
 
 
 function TRawbyteSearchRec.GetTimeStampUTC: TDateTime;
 function TRawbyteSearchRec.GetTimeStampUTC: TDateTime;
 begin
 begin
 {$if declared(FindDataTimeToDateTime)}
 {$if declared(FindDataTimeToDateTime)}
   if not FindDataTimeToUTC(FindData.ftLastWriteTime, Result) then
   if not FindDataTimeToUTC(FindData.ftLastWriteTime, Result) then
-{$else}
-  Result := FileDateToUTC(Time);
 {$endif}
 {$endif}
+    Result := FileDateToUTC(Time);
 end;
 end;
 
 
 { TUnicodeSymLinkRec }
 { TUnicodeSymLinkRec }
@@ -727,9 +723,8 @@ function TUnicodeSymLinkRec.GetTimeStamp: TDateTime;
 begin
 begin
 {$if declared(FindDataTimeToDateTime)}
 {$if declared(FindDataTimeToDateTime)}
   if not FindDataTimeToDateTime(FindData.ftLastWriteTime, Result) then
   if not FindDataTimeToDateTime(FindData.ftLastWriteTime, Result) then
-{$else}
-  Result := 0;
 {$endif}
 {$endif}
+    Result := 0;
 end;
 end;
 
 
 { TRawbyteSymLinkRec }
 { TRawbyteSymLinkRec }
@@ -738,9 +733,8 @@ function TRawbyteSymLinkRec.GetTimeStamp: TDateTime;
 begin
 begin
 {$if declared(FindDataTimeToDateTime)}
 {$if declared(FindDataTimeToDateTime)}
   if not FindDataTimeToDateTime(FindData.ftLastWriteTime, Result) then
   if not FindDataTimeToDateTime(FindData.ftLastWriteTime, Result) then
-{$else}
-  Result := 0;
 {$endif}
 {$endif}
+    Result := 0;
 end;
 end;