下面的可以运行,但会把TListview和TTreeview的属性也保存到文件中,但我只想把他们的items属性保存下来。
function TfrmMain.SaveDoc(const docname:String): Boolean;
var
f:TFileStream;
begin
Result:=False;
try
f:=TFileStream.Create(docname,fmOpenwrite or fmCreate);
f.WriteComponentRes(treeview1.ClassName,treeview1);
f.WriteComponentRes(listview.ClassName,listview);
Result:=True;
finally
f.Destroy;
end;
end;
function TfrmMain.SaveDoc(const docname:String): Boolean;
var
f:TFileStream;
begin
Result:=False;
try
f:=TFileStream.Create(docname,fmOpenwrite or fmCreate);
f.WriteComponentRes(treeview1.ClassName,treeview1);
f.WriteComponentRes(listview.ClassName,listview);
Result:=True;
finally
f.Destroy;
end;
end;
有代码的,可以照着改