浏览代码

TSearchRec.GetTimeStamp: fix ifdefs

git-svn-id: trunk@47395 -
ondrej 4 年之前
父节点
当前提交
33fe3f3ede
共有 1 个文件被更改,包括 6 次插入12 次删除
  1. 6 12
      rtl/objpas/sysutils/filutil.inc

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

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