将数据从 csv 文件加载到 TdxMemData 内存表

csv数据 :

field1,field2,field3,field4
a1,b1,"c1, some text, my text",d1
a2,b2,"c2, some text, my text",d2
a3,b3,"c3, some text, my text",d3
a4,b4,"c4, some text, my text",d4

实现方法:

s1,s2,s3: tstringlist
create all lists
s2.StrictDelimiter:=True;
s1.LoadFromFile('myfile.csv');
for i := 0 to s1.Count - 1 do
begin
  s2.Delimiter := ',';
  s2.DelimitedText := s1[i];
  s2.Delimiter := #9;
  s3.Add(s2.DelimitedText);
end;
MemData.LoadFromStrings(s3);

 

THE END
文章版权归作者所有,未经允许请勿转载。
点赞15赞赏
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片