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;