Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement