Delphi 用ini记录ComboBox的ItemIndex

本文整理自网络，侵删。

 procedure TForm1.ComboBox1Change(Sender: TObject);
var
ini:TInifile;
path,section,key:string;
begin
path := ExtractFilePath(application.ExeName)+'config.ini';
if FileExists(path) then
begin
ini:=Tinifile.Create(path);
Section := 'Config';
Key := 'ComboBox';
ini.WriteInteger(Section,Key,ComboBox1.ItemIndex);
end;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
ini:TInifile;
path,section,key:string;
begin
path := ExtractFilePath(application.ExeName)+'config.ini';
if FileExists(path) then
begin
ini:=Tinifile.Create(path);
ComboBox1.ItemIndex := ini.ReadInteger('Config','ComboBox',0);
end;
end;
 

相关阅读 >>

Delphi opendialog使用方法

Delphi 从listview组件中的选定行在数据库中删除

Delphi中使用isuperobject解析json数据

Delphi cb_addstring 与lb_addstring的区别？

Delphi 从twebbrowser webbrowser得到全部html源码

Delphi控制台程序怎么清屏

Delphi 字符串转换为16进制整数 整数转换为16进制字符串

Delphi判断一个字符是否为汉字的最佳方法

Delphi 中让嵌入窗体的 webbrowser 控件无边框

Delphi idhttp中get与post的区别

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 用ini记录ComboBox的ItemIndex