测试文件：animals.csv

"NAME","SIZE","WEIGHT","AREA"

"Angel Fish",2,2,"Computer Aquariums"

"Boa",10,8,"South America"

"Critters",30,20,"Screen Savers"

"House Cat",10,5,"New Orleans"

"Ocelot",40,35,"Africa and Asia"

"Parrot",5,5,"South America"

"Tetras",2,2,"Fish Bowls"

program ReadCSV;

{$APPTYPE CONSOLE}

{$R *.res}

uses

  System.Classes, System.SysUtils;

begin

  var Reader := TStreamReader.Create('animals.csv', TEncoding.Default, True); // 'animals.csv'

  try

    Reader.ReadLine;

    while not Reader.EndOfStream do                                           // EOF

      begin

        for var Field in Reader.ReadLine.Split([','], '"') do

          Writeln(Field.DeQuotedString('"'));

        Writeln;

      end;

  finally

    Reader.Free;

  end;

  Readln;

end.