本文整理自网络,侵删。
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 webbrowser设置自己定义user-agent
Delphi 递归实现从m 个集合中 任取一个元素 生成组合
Delphi 能否把.txt文件的数据导入到access数据库中
Delphi Delphi 学习大师qq群讨论的字符串位置替换方法
更多相关阅读请进入《Delphi》频道 >>