如何保存ListView内容为文件？

Question

var sFile: String;
    tFile: TextFile;
    ii,jj:Integer;
    wsStr:WideString;  sFile := 'C:\ListView.txt';
  AssignFile(tFile,sFile);
  ReWrite(tFile);
  for ii:= 0 to ListView1.Items.Count-1 do
  begin
    wsStr:= ListView1.Items[ii].Caption+'|';  //'|'为分隔符
    for jj:= 0  to ListView1.Items[ii].SubItems.Count-1 do
    begin
      wsStr := wsStr + ListView1.Items[ii].SubItems.Strings[jj]+'|';
    end;
    WriteLn(tFile,String(wsStr));
  end;
  CloseFile(tFile);

Answer 1

我的一段：
var
  I:Integer;
  F1: TextFile;
  S:String;
begin
  if OpenDialog1.Execute then begin
    AssignFile(F1, OpenDialog1.Filename);
    ReWrite(F1);
    For I:=0 to ListView1.Items.Count-1 do
    Begin
      S:=ListView1.items[i].Caption;
        Write(F1, S);
      end;
    CloseFile(F1);
  end;