delphi7 ini创建,读写,条件字节值判断,删除,释放

//ini创建,读写,条件字节值判断
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,IniFiles;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  MyIniFile:TInifile;//定义ini
  Filename:string;
  v1:string;
  v2:Integer;
  v3:Boolean;
begin
   Filename:=ExtractFilePath(Paramstr(0))+ 'program.ini'; //文件路径
if not fileexists(Filename)then                           //如果没有找到文件则会自动创建一个INI文件
begin
   MyIniFile:=Tinifile.Create(FileName);                  //打开INI文件
   //写入信息小名,变量,值,......................................................
   myinifile.writestring('小节名', '关键字1','1111');
   myinifile.writeinteger('小节名', '关键字2',11111);
   myinifile.writebool('小节名', '关键字3',True);
end else                                                  //读取INI
begin
MyIniFile:=Tinifile.Create(FileName);                      //打开文件
v1:=myinifile.Readstring( '小节名', '关键字1','缺省值');
if v1='1111' then
begin
myinifile.writestring('小节名', '关键字1','初值改变了变000');
end else
v1:=myinifile.Readstring( '小节名', '关键字1','0');
v2:=myinifile.Readinteger( '小节名', '关键字2 ',0);
v3:=myinifile.Readbool( '小节名', '关键字3 ',false);
Edit1.Text:=v1+inttostr(v2)+booltostr(v3);
//删除关键字
//myinifile.DeleteKey( '小节名 ', '关键字 ');
//删除小节
//myinifile.EraseSection( '小节名 ');
//添加小节可以使用写入法来创建
// 在适当的位置用下面的语句释放myinifile：
//释放
myinifile.Destroy;
end;
end;
end.