program
Project29
;
{$APPTYPE CONSOLE}
uses
SysUtils
,
Classes
;
var
L
:
TStringList
;
aLine
:
string
;
begin
L
:
=
TStringList
.
Create
;
try
L
.
StrictDelimiter
:
=
True
;
L
.
CommaText
:
=
'1997, Ford, E350,"Super, '
#10
#13
'luxurious truck",Field,Field'
;
for
aLine
in
L
do
WriteLn
(
'->'
,
aLine
)
;
finally
L
.
Free
;
end
;
WriteLn
;
WriteLn
(
'Press ENTER to exit'
)
;
ReadLn
;
end
.
// Output looks like this:
// ->1997
// -> Ford
// -> E350
// ->Super,
// luxurious truck
// ->Field
// ->Field
//
// Press ENTER to exit