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.

  • 相关阅读:
    【bzoj1176】[Balkan2007]Mokia
    【bzoj1503】[NOI2004]郁闷的出纳员
    C#设置和获取系统环境变量
    结伙创业指南及翻脸法则
    Unity3D_(游戏)卡牌03_选关界面
    Unity3D_(游戏)卡牌02_主菜单界面
    Unity3D_(游戏)卡牌01_启动屏界面
    Unity3D_(游戏)跳一跳超简单制作过程
    如何将项目托管到Github上
    Android_(游戏)打飞机06:后续
  • 原文地址:https://www.cnblogs.com/zhangzhifeng/p/3315461.html
Copyright © 2011-2022 走看看