delphi读取配置文件
简单来说就是想创建一个窗口,然后自己拉动这个窗口大小,然后保存这个的窗口的大小属性数据,然后生成一个文件到指定文件夹!
[解决办法]
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.