首页 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.