淘先锋技术网

首页 1 2 3 4 5 6 7

使用Delphi读写INI文件

    INI文件是Windows早期的一种存储应用程序配置的文件格式,因为直观易用,得到了很广泛的使用。在注册表已经出现了n年以后,仍然还有大量程序在使用这种方式来提供系统无关的应用程序配置存储,另外很多绿色软件也使用这种方式存储配置。
    Delphi内置了对INI文件的支持,可以很方便的读写INI文件,其示例代码如下:

unit untmain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, inifiles, StdCtrls, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    sd: TSaveDialog;
    od: TOpenDialog;
    edtsection: TLabeledEdit;
    edtname: TLabeledEdit;
    edtvalue: TLabeledEdit;
    BitBtn1: TBitBtn;
    Button2: TButton;
    rdbtnint: TRadioButton;
    rdbtnstr: TRadioButton;
    rdbtnbool: TRadioButton;
    mmo: TMemo;
    btnChange: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  myini:tinifile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if od.Execute then
  begin
    if myini<>nil then
      myini.Free;
    myini.Create(od.filename);
    mmo.Lines.LoadFromFile(od.filename);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if myini<>nil then
  myini.Free;
end;

end.