我試了很多方法都沒有辦法作到, 請問Listview要如何存檔和載入? 謝謝~~~~

任何元件都可以用以下方法存取 1. 存檔

procedure TForm1.Button1Click(Sender: TObject);
var f:TFileStream;
begin
  f:=TFileStream.Create('c:\test',fmcreate);
  try
    f.WriteComponent(Listview1);
  finally
    f.free;
  free;
end;

2. 讀出

var f:TFileStream;
  lw:TListView;
begin
  RegisterClass(TListView);  //必須先將要讀出之類別register
  f:=TFileStream.create('c:\test',fmOpenRead);
  try
    lw:=TListView.create(self);  //先create元件
    lw.Parent:=self;             //給新的parent
    f.ReadComponent(lw);         //讀出component
  finally
    f.free;
  end;

[NOTE] 1. 若在原來之Form上讀出, 須注意須先delete原來之listview1否則會重複 2. 若希望所存之檔為純text, 可用ObjectBinarytoText先轉成text再存檔讀出時先用ObjectTextToBInary轉回 3. 若你的listview是vsReport, 也可以自己寫程式只存字串 以下程式將listView(vsReport)之內容轉成TStrings 你可以直接用TStrings之savetofile存檔

procedure TForm1.ListViewToStringlist(lv: TListView; l: TStrings);
var i,j:integer;
  s:string;
begin
  for i:=0 to ListView1.Items.Count-1 do begin
    s:=Listview1.Items[i].caption;
    for j:=0 to listview1.items[i].SubItems.Count-1 do
      s:=s #9 listview1.items[i].SubItems[j];
    l.add(s);
  end;
end;