delphi读取配置文件

Question

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

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var winIni: TIniFile;
begin
  winIni := TIniFile.Create('.\WIN.INI');//调用的文件名
  Form1.Height:=winIni.ReadInteger('窗体','高度',400);
  Form1.Width:=winIni.ReadInteger('窗体','宽度',600);
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);
end;

Answer 2

好像不行!显示
[Error] Unit1.pas(282): Missing operator or semicolon

Answer 3

'.\WIN.INI'这个是"."是指盘符吗?新手勿喷!!

Answer 4

[Error] Unit1.pas(280): Undeclared identifier: 'TIniFile'
[Error] Unit1.pas(282): Missing operator or semicolon
[Error] Unit1.pas(282): Incompatible types: 'TComponent' and 'String'
[Error] Unit1.pas(283): Missing operator or semicolon
[Error] Unit1.pas(284): Missing operator or semicolon
[Error] Unit1.pas(286): Undeclared identifier: 'FormCloseQuery'
[Error] Unit1.pas(286): ';' expected but '(' found
[Error] Unit1.pas(286): ';' expected but ')' found
[Error] Unit1.pas(287): Undeclared identifier: 'TIniFile'
[Error] Unit1.pas(289): Missing operator or semicolon
[Error] Unit1.pas(290): Missing operator or semicolon
[Error] Unit1.pas(291): Missing operator or semicolon
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'
则是全部错误代码

Answer 5

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');//"."表示调用的文件在当前目录，可以改为'c:\win.ini'等形式
  Form1.Height:=winIni.ReadInteger('窗体','高度',400);
  Form1.Width:=winIni.ReadInteger('窗体','宽度',600);
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var winIni: TIniFile;
begin
  winIni := TIniFile.Create('.\WIN.INI');//调用的文件win.ini 在当前目录
  winIni.WriteInteger('窗体','高度',Form1.Height);
  winIni.WriteInteger('窗体','宽度',Form1.Width);
end;
end.

Answer 6

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.

Answer 7

form1.WindowState :=  wsMaximized;//窗体最大化

Answer 8

这个是什么意思,Inifiles有干什么用的,为什么定义成这样!
uses IniFiles; 就是这个不懂,

Answer 9

提示说'TIniFile'未定义。
而 'TIniFile' 是在单元 IniFiles.pas 中定义的，所以，需要用 uses IniFiles; 这样的方式引用该单元，从而告诉编译器，它是由那个单元定义，编译时，就不再出错了。