paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 09:19:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added MACOS linebreakstyle (tlbsCR)

Browse Source
This commit is contained in:
michael 2004-08-30 13:07:03 +00:00
parent e4bb7935d1
commit 09490c6f5a
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/objpas/sysutils/sysstrh.inc
View File

@ -55,10 +55,11 @@ const
{$endif VER1_0} {$endif VER1_0}
Type Type
TTextLineBreakStyle = (tlbsLF, tlbsCRLF); // Must move to system unit, and add Mac tlbsCR too ? TTextLineBreakStyle = (tlbsLF, tlbsCRLF,tlbsCR); // Must move to system unit, and add Mac tlbsCR too ?
Const Const
DefaultTextLineBreakStyle: TTextLineBreakStyle = {$ifdef unix} tlbsLF {$else} tlbsCRLF {$endif}; DefaultTextLineBreakStyle: TTextLineBreakStyle =
{$ifdef unix} tlbsLF {$else} {$ifdef macos} tlbsCR {$else} tlbsCRLF {$endif} {$endif} ;
Const Const
@ -192,7 +193,10 @@ function BCDToInt(Value: integer): integer;
{ {
$Log$ $Log$
Revision 1.8 2004-08-07 16:56:28 florian Revision 1.9 2004-08-30 13:07:03 michael
+ Added MACOS linebreakstyle (tlbsCR)
Revision 1.8 2004/08/07 16:56:28 florian
+ TryStrToInt* added + TryStrToInt* added
Revision 1.7 2004/06/20 20:42:37 florian Revision 1.7 2004/06/20 20:42:37 florian