Delphi 10.3 处理CSV TStreamReader 自带Split用法

本文整理自网络，侵删。

 
测试文件：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.
 

相关阅读 >>

Delphi连接mysql出现乱码

Delphi xe5 for android 调用java类库必看的文件

Delphi 通过指点操作获得窗口句柄

Delphi fmx 获取系统版本 android ios通用

Delphi 存储过程与函数的区别

Delphi 图像二值化

Delphi如何给tedit控件加上背景图片

Delphi idhttp调用 rest

Delphi中获取客户区坐标

Delphi unigui服务器部署

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 10.3 处理CSV TStreamReader 自带Split用法