Delphi ini文件读写

implementation

{$R *.dfm}

var
    inifile: Tinifile;
    filepath: string;

procedure TForm1.Button1Click(Sender: TObject);
begin
    inifile.WriteString(‘Common‘, ‘PortNumber‘, Edit1.Text);
    inifile.WriteString(‘Common‘, ‘Brand‘, Edit2.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    filepath := ExtractFilePath(Application.Exename) + ‘reg.ini‘;//取得ini文件的路径
    inifile := Tinifile.Create(filepath);
    Edit1.Text := inifile.ReadString(‘Common‘, ‘PortNumber‘, ‘‘);
    Edit2.Text := inifile.ReadString(‘Common‘, ‘Brand‘, ‘‘);
end;