1. 可以直接读TXT //保存listbox里面的项到'ListText.txt'文件 ListBox1.Items.SaveToFile(ExtractFilePath(Application.ExeName)+'ListText.txt'); //将'ListText.txt'文件里面的内容读入listbox ListBox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'ListText.txt')
2.ini方法,你必须建立一个项,保存listbox的项目数量,然后再一条一条的读进来
这样 uses inifiles //写出文件 var system:TIniFile; i:integer; begin system:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'ListText.ini'); //创建ini文件 system.writeinteger('系统配置','项目总数',ListBox1.count); for i:=0 to ListBox1.count-1 do begin system.writestring('系统配置',Pchar('项目'+IntToStr(i)),ListBox1.Items.Strings[i]); //循环写入listbox里面的值 end; system.Free; end; //读入文件 var system:TIniFile; a,i:integer; begin system:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'ListText.ini'); i:=system.Readinteger('系统配置','项目总数',0); ListBox1.Clear; for a:=0 to i-1 do begin ListBox1.Items.Add(system.ReadString('系统配置',Pchar('项目'+IntToStr(a)),'')); end; system.Free; end;