ini,txt保存Listbox或ComboBox的问题
来源:互联网 发布:云计算需要什么技术 编辑:程序博客网 时间:2024/06/04 18:01
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;