delphi如何读取csv格式

Question

各位高手，求助如何用delphi5 读写csv文件，谢谢了EG. 
NAME       AGE   LIVE       IN_DATE    OUT_DATE
'CHOW', '27','CHINA',' 28-04-2011','28-04-2012'
 

Answer 1

CSV通常是以逗号分隔值的文本文件。也有的分隔符是指定的字符。
因此，读取它，可以按文本文件读取，再逐行处理：
procedure TForm1.btn1Click(Sender: TObject);
  var sFile,sLine: TStrings;
      r,c:Integer;
begin
  sFile := TStringList.Create;
  sFile.LoadFromFile('d:\1.txt');
  sLine := TStringList.Create;
  for r:=0 to sFile.Count-1 do begin
  sLine.CommaText := sFile[r];
    for c:=0 to sLine.Count-1 do begin
       mmo1.Lines.Add(sLine[c]);
    end;
  end;
  sLine.Free;
  sFile.Free
end;