当然，这中间还可以实行一些加密

记得 uses
    inifiles;

///////////////////////////////////////////////////////////////////////////////
//保存listview到文件
procedure
							Listview2File(FileName:string;Plistview:Tlistview);
var
i,j:integer;
tmpini:Tinifile;
begin
tmpini:=tinifile.Create(FileName);
deletefile(fileName);
							//清除原文件
for
							i:=0
							to
							Plistview.Items.Count-1
							do
							//遍历行

							begin

							tmpini.WriteString(inttostr(i),'0',Plistview.Items[i].Caption);

							if
							Plistview.Columns.Count>1
							then

							begin

							for
							j
							:=
							0
							to
							Plistview.Columns.Count-2
							do
							//遍历列

							tmpini.WriteString(inttostr(i),inttostr(j+1),Plistview.Items[i].SubItems.Strings[j]);

							end;

							end;
end;
////////////////////////////////////////////////////////////////////////////////
//从文件读取到listview
procedure
							File2Listview(FileName:string;Plistview:Tlistview);
var
i,j:integer;
tmpini:Tinifile;
tmplist,tmplist2:
							TstringList;
begin
tmplist:=TstringList.Create;
tmplist2:=TstringList.Create;
Plistview.Clear;
							//清除原列表
tmpini:=tinifile.Create(FileName);
tmpini.ReadSections(tmplist);
for
							I
							:=
							0
							to
							tmplist.Count
							-
							1
							do
							//遍历节点

							begin

							tmpini.ReadSection(tmplist.Strings[i],tmplist2);

							with
							Plistview.Items.Add
							do

							begin
							//with

							Caption:=tmpini.ReadString(tmplist.Strings[i],tmplist2.Strings[0],'');

							imageindex:=i;

							if
							tmplist2.Count>1
							then

							begin

							for
							j
							:=
							0
							to
							tmplist2.Count
							-
							2
							do
							//节点里的项

							SubItems.Add(tmpini.ReadString(tmplist.Strings[i],tmplist2.Strings[j+1],''));

							end;

							end;
							//with

							end;
end;

为 dvbbs的code汉颜 !!