zoukankan      html  css  js  c++  java
  • Delphi 读写ini配置文件示例

    unit Unit1;

    interface
    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, ExtCtrls, Inifiles;

    type
    TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Timer1: TTimer;
    CheckBox1: TCheckBox;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;
    myinifile:TInifile;

    implementation

    {$R *.dfm}

    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    // 每格一秒增加1
    Edit2.Text := IntToStr(StrToInt(Edit2.Text) + 1);
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    var
    FileName:string;
    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.

  • 相关阅读:
    Python网络爬虫之Scrapy框架(CrawlSpider)
    在爬虫中使用单线程异步协程,包含单任务和多任务,以及数据解析使用回调函数
    使用线程池来进行发送爬取请求和存储数据
    在linux和windows中使用selenium
    以太坊私有节点搭建
    以太坊简介
    区块链历史来源
    通过go-ethereum源码看如何管理项目
    react-router简介
    js变量的解构赋值
  • 原文地址:https://www.cnblogs.com/fuhuo/p/11152172.html
Copyright © 2011-2022 走看看