我在DELPHI6下面用ini怎么会出现 Wirte error的问题呢？程序不能执行！！！！

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,inifiles,
  StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
var inifile:Tinifile;
begin
  inifile:=Tinifile.create('h:\l.ini');
  with inifile do
  begin
    top:=readInteger('form','top',100);
    left:=readInteger('form','left',100);
    if readBool('form','initMax',false) then
    begin
     windowstate:=wsmaximized
    end
    else
      windowstate:=wsNormal;
    end;
    inifile.free;
end;procedure TForm1.FormDestroy(Sender: TObject);
var inifile:tIniFile;
begin
  IniFile:=TIniFile.Create('h:\l.ini');
  with IniFile do
  begin
      writeInteger('Form','Top',top);
      writeInteger('form','left',left);
      writeInteger('Form','height',height);
      writeBool('form','InitMax',WindowState=WsMaximized);
  end;
  inifile.free;end;end.
在delphi5下面一切正常！

Answer 1

我将这段代码放在delphi6中试了一下，不会出现问题，我建议
你最好是将放在FormDestroy中的代码放在FormClose中