软件下载 | 资讯教程 | 最近更新 | 下载排行 | 一键转帖 | 发布投稿
您的位置:最火下载站 > 源码下载 > Delphi源码 > 文件操作 > 操作INI文件配置应用程序,Delphi源代码下载

操作INI文件配置应用程序,Delphi源代码

  • 资源语言:简体中文
  • 资源类型:国产软件
  • 资源大小:9 KB
  • 资源等级:3星级
  • 相关链接:Home Page
  • 资源性质:免费版
运行环境:windows/delphi7
更新时间:2011-01-12 16:10:56
有无插件:无插件
Delphi操作INI文件配置应用程序,一般用作程序的配置文件,首次运行后可生成一个INI文件,以方便程序调用。
begin
// 获取当前程序所在路径
FileName := ‘c:myini.ini‘;
// 创建myinifile对象,并创建或打开myini.ini文件
myinifile := TInifile.Create(FileName);
// 读取值
Edit1.Text := myinifile.ReadString(‘程序参数‘, ‘用户名称‘, ‘缺省的用户名称‘);
Edit2.Text := IntToStr(myinifile.ReadInteger(‘程序参数‘, ‘已运行时间‘, 0));
Checkbox1.Checked := myinifile.ReadBool(‘程序参数‘, ‘是否正式用户‘, False);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// 在程序关闭时写入myini.ini文件
myinifile.WriteString(‘程序参数‘, ‘用户名称‘, Edit1.Text);
myinifile.WriteInteger(‘程序参数‘, ‘已运行时间‘, StrToInt(Edit2.Text));
myinifile.WriteBool(‘程序参数‘, ‘是否正式用户‘, CheckBox1.Checked);

// 释放myinifile对象
myinifile.Destroy;
end;
end.
 报告下载错误
点击链接开始下载
本类最新
相关教程
下载说明
栏目导航
推荐软件