如何用delphi读写csv文件

var

  sFile,sLine: TStrings;

begin

  sFile := TStringList.Create;

  sFile.LoadFromFile('C:\a.csv');

  sLine := TStringList.Create;

  sLine.CommaText := sFile[1];

  ShowMessage(sLine[2]);

  sLine.Free;

  sFile.Free

end;

 

 

procedure TForm1.Button1Click(Sender: TObject);
var
  strlist: TStringList;
begin
strlist := TStringList.Create;
strlist.LoadFromFile('C:\text.csv');
memo1.Lines.AddStrings(strlist);
strlist.Free;
end;