blob: 59a271b576fca7dd2724c78d29359927bbe8fa82 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
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.
|
