Delphi实现把Listview数据存储到csv格式文件并能反过来读取到Listview

D-Nolan

于 2024-06-14 13:18:47 发布

阅读量146

点赞数 3

分类专栏： delphi编程技巧文章标签：前端开发语言

本文链接：https://blog.csdn.net/gust2013/article/details/139679166

版权

delphi编程技巧专栏收录该内容

8 篇文章 1 订阅

订阅专栏

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TCsvWriter.Create(FileName) do
  try
    Write('Field 1 1');
    Write('Field 1 2');
    Write('Field 1 3');

    NextLine;

    Write('Field 2 1');
    Write('Field 2 2');
    Write('Field 2 3');

    NextLine;

    Write('Field 3 1');
    Write('Field 3 2');
    Write('Field 3 3');

  finally
    Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if OpenDialog.Execute then
  begin
    Memo1.Clear;
    with TCsv.Create do
    try
      LoadUtf8File(OpenDialog.FileName);
      Memo1.Text := ToString;
      Memo1.Lines.Add(LineCount.ToString);
      Memo1.Lines.Add(Fields[0,0]);
    finally
      Free;
    end;
  end;
end;