paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 05:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* system unit has a LineEnding

Browse Source
This commit is contained in:
florian 2003-10-04 13:33:43 +00:00
parent 5e1949f8e3
commit 8e8fcfce95
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
fcl/inc/wformat.pp
View File

@ -82,14 +82,9 @@ Type
Protected
Property Stream : TStream Read FStream;
end;
Const
{$ifdef linux}
LineFeed = #10;
{$else}
LineFeed = #13#10;
{$endif}
const
LineFeed = LineEnding;
Implementation
@ -318,7 +313,10 @@ end;
end.
{
$Log$
Revision 1.2 2003-10-01 21:05:39 michael
Revision 1.3 2003-10-04 13:33:43 florian
* system unit has a LineEnding
Revision 1.2 2003/10/01 21:05:39 michael
+ Stream property is now protected
Revision 1.1 2003/10/01 20:49:29 michael