[Overview][Constants][Types][Classes][Procedures and functions][Variables] Reference for unit 'sysutils' (#rtl)

AdjustLineBreaks

Convert possible line-endings to the currently valid line ending.

Declaration

Source position: line 0

function AdjustLineBreaks(

  const S: String

):String;

function AdjustLineBreaks(

  const S: String;

  Style: TTextLineBreakStyle

):String;

Description

AdjustLineBreaks will change all #13 characters with #13#10 on Windowsnt and dos. On linux, all #13#10 character pairs are converted to #10 and single #13 characters also.

Errors

None.

See also

AnsiCompareStr

  

Compare 2 ansistrings, case sensitive, ignoring accents characters.

AnsiCompareText

  

Compare 2 ansistrings, case insensitive, ignoring accents characters.

Example

Program Example48;

{ This program demonstrates the AdjustLineBreaks function }

Uses sysutils;

Const
  S = 'This is a string'#13'with embedded'#10'linefeed and'+
       #13'CR characters';

Begin
  Writeln (AdjustLineBreaks(S));
End.