读书人

delphi读取配置文件,该如何处理

发布时间: 2012-09-14 23:00:49 作者: rapoo

delphi读取配置文件
简单来说就是想创建一个窗口,然后自己拉动这个窗口大小,然后保存这个的窗口的大小属性数据,然后生成一个文件到指定文件夹!

[解决办法]

Delphi(Pascal) code
unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs;type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}uses IniFiles;procedure TForm1.FormCreate(Sender: TObject);var winIni: TIniFile;begin  winIni := TIniFile.Create('.\WIN.INI');//调用的文件名  Form1.Height:=winIni.ReadInteger('窗体','高度',400);//无法从ini文件获取时,用400作默认值  Form1.Width:=winIni.ReadInteger('窗体','宽度',600);//同上  winIni.Free;//使用完释放end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);var winIni: TIniFile;begin  winIni := TIniFile.Create('.\WIN.INI');//调用的文件名  winIni.WriteInteger('窗体','高度',Form1.Height);  winIni.WriteInteger('窗体','宽度',Form1.Width);  winIni.Free;end;end. 

读书人网 >.NET

热点推荐