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.

  • 相关阅读:
    LeetCode 1032. Stream of Characters
    LeetCode 872. Leaf-Similar Trees
    LeetCode 715. Range Module
    LeetCode 353. Design Snake Game
    LeetCode 509. Fibonacci Number
    LeetCode 632. Smallest Range Covering Elements from K Lists
    LeetCode 963. Minimum Area Rectangle II
    LeetCode 939. Minimum Area Rectangle
    LeetCode 727. Minimum Window Subsequence
    LeetCode 844. Backspace String Compare
  • 原文地址:https://www.cnblogs.com/zhangzhifeng/p/3315461.html
Copyright © 2011-2022 走看看