zoukankan      html  css  js  c++  java
  • Delphi Ini 操作简单例子

    interface

    uses
       Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
       Dialogs, StdCtrls, IniFiles; //加个INIFILES单元

    type
       TForm1 = class(TForm)
         Label1: TLabel;
         Label2: TLabel;
         Label3: TLabel;
         Label4: TLabel;
         Edit1: TEdit;
         Edit2: TEdit;
         Edit3: TEdit;
         Edit4: TEdit;
         Button1: TButton;
         Button2: TButton;
         procedure FormCreate(Sender: TObject);
         procedure Button2Click(Sender: TObject);
         procedure Button1Click(Sender: TObject);
       private
         { Private declarations }
       public
         { Public declarations }
       end;

    var
       Form1: TForm1;
       Myini: Tinifile;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
       Var
       FileName:string;
    begin
       Myini:=Tinifile.create(ExtractFilePath(Paramstr(0))+'XMN.ini');
       Myini.WriteString('论坛','注册人数',Edit1.Text);
       Myini.WriteString('论坛','文章数量',Edit2.Text);
       Myini.WriteString('论坛','访问人数',Edit3.Text);
       Myini.WriteString('论坛','留言数量',Edit4.Text);
       Application.MessageBox('写入成功!','成功',64)
    end;

    procedure TForm1.Button2Click(Sender: TObject);
       Var
       Filename:String;
    begin
       Myini:=Tinifile.create(ExtractFilePath(Paramstr(0))+'XMN.ini');
       Edit1.Text:=myini.ReadString('论坛','注册人数','') ;
       edit2.Text:=myini.ReadString('论坛','文章数量','') ;
       Edit3.Text:=myini.ReadString('论坛','访问人数','') ;
       Edit4.Text:=myini.ReadString('论坛','留言数量','') ;
       Application.MessageBox('读入成功!','成功',64)
    end;

    procedure TForm1.FormCreate(Sender: TObject);
       Var
       Filename:String;
    begin
       Myini:=Tinifile.create(ExtractFilePath(Paramstr(0))+'XMN.ini');
       Edit1.Text:=myini.ReadString('论坛','注册人数','') ;
       edit2.Text:=myini.ReadString('论坛','文章数量','') ;
       Edit3.Text:=myini.ReadString('论坛','访问人数','') ;
       Edit4.Text:=myini.ReadString('论坛','留言数量','') ;
    end;

    end.

  • 相关阅读:
    springboot 实现 aop
    使用@import导入实现了ImportBeanDefinitionRegistrar接口的类,不能被注册为bean
    Spring Boot 动态数据源(多数据源自动切换)
    springboot2动态数据源的绑定
    三分钟学会@Autowired@Qualifier@Primary注解
    java复制文件的4种方式
    五款最好的免费同步软件
    springboot2多数据源完整示例
    WebSocket 结合 Nginx 实现域名及 WSS 协议访问
    Spring的注解@Qualifier注解
  • 原文地址:https://www.cnblogs.com/zhangzhifeng/p/3315461.html
Copyright © 2011-2022 走看看