Question

delphi将csv文件导入后，并进行数据检索等功能。

如题，要拥有以下功能需要用哪几个控件，主要代码。

Answer 1

给你一个简单的方法
你根据实际情况变通

procedure TForm1.Button2Click(Sender: TObject);
var
  CsvLines, CommaStr: TStringList;
begin
  CsvLines := TStringList.Create;
  CommaStr := TStringList.Create;
  CommaStr.CommaText := '1 2 3 4 5 6 7 8 9';
  CsvLines.Add(CommaStr.CommaText);
  CommaStr.CommaText := '9 8 7 6 5 4 3 2 1';
  CsvLines.Add(CommaStr.CommaText);
  CsvLines.SaveToFile('test.csv');  //写入
  CsvLines.LoadFromFile('test.csv');  //读取
  CsvLines.Free;
  CommaStr.Free;
end;