浏览代码

rtl: fixed indentation

mattias 2 年之前
父节点
当前提交
1ab29086f8
共有 1 个文件被更改,包括 4 次插入4 次删除
  1. 4 4
      rtl/objpas/sysutils/fina.inc

+ 4 - 4
rtl/objpas/sysutils/fina.inc

@@ -123,10 +123,10 @@ begin
     Dec(I);
   if (I > 0) and (FileName[I] = ExtensionSeparator) then
     begin
-	SOF:=(I=1) or (FileName[i-1] in AllowDirectorySeparators);
-	if (Not SOF) or FirstDotAtFileNameStartIsExtension then
-	  Result := Copy(FileName, I, MaxInt);
-	end  
+	  SOF:=(I=1) or (FileName[i-1] in AllowDirectorySeparators);
+	  if (Not SOF) or FirstDotAtFileNameStartIsExtension then
+	    Result := Copy(FileName, I, MaxInt);
+	  end
   else
     Result := '';
 end;