浏览代码

rtl: system: undo linebreak

mattias 7 年之前
父节点
当前提交
38b0422b90
共有 1 个文件被更改,包括 3 次插入3 次删除
  1. 3 3
      packages/rtl/system.pas

+ 3 - 3
packages/rtl/system.pas

@@ -17,9 +17,9 @@ unit System;
 
 interface
 
-var
-  LineEnding: string = #10;
-  sLineBreak: string = #10;
+const
+  LineEnding = #10;
+  sLineBreak = LineEnding;
 const
   MaxSmallint = 32767;
   MinSmallint = -32768;