lphi 读取csv记录

给你个超简单的：
procedure TForm1.btn1Click(Sender: TObject);
var
  CsvData: TStringList;
  I: Integer;
begin
  CsvData:= TStringList.Create;

  try
    CsvData.LoadFromFile('ee.csv');
    for I := 0 to CsvData.Count -1 do
    begin
      mmo1.Lines.Add(Pchar(CsvData.ValueFromIndex[I]) + 11);
    end;
  finally
    CsvData.Free;
  end;  

end;

///////////////////////////////////////////////

// 读取CSV 文件
procedure TFrmLoadCSVFile.BtnLoadClick(Sender: TObject);
var
  CsvData: TStringList;
  I: Integer;
begin
  CsvData := TStringList.Create;
  FrmLoadCSVFile.mmo_content_view.Lines.Clear;
  try
    CsvData.LoadFromFile('C:\qlist.csv');
    for I := 0 to CsvData.Count - 1 do
    begin
      mmo_content_view.Lines.Add(CsvData[i]);
    end;
  finally
    CsvData.Free;
  end;
end;