无法从INI文件读取配置！~请大家帮忙 ( 积分: 50 )

我在Form1里建个了按钮弹出Form2，在Form2的uses里加入了inifiles，配置文件为sysinfo.ini。

unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, inifiles, StdCtrls;
type
TForm2 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
parameter1,parameter2: real;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
var
ini_file:tinifile;
filename:string;
begin
filename:=extractfilepath(paramstr(0))+'sysinfo.ini';
ini_file:=tinifile.Create(filename);
parameter1:=ini_file.ReadFloat('parameter','pixel',100);
parameter2:=ini_file.ReadFloat('parameter','dia',50);
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
showmessage(Floattostr(parameter1));
end;
end.

运行以后showmessage弹出的值是0，请问是怎么回事？
还有使用什么语句，自动载入当前路径下的BMP位图？谢谢

我在Form1里建个了按钮弹出Form2，在Form2的uses里加入了inifiles，配置文件为sysinfo.ini。

unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, inifiles, StdCtrls;
type
TForm2 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
parameter1,parameter2: real;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
var
ini_file:tinifile;
filename:string;
begin
filename:=extractfilepath(paramstr(0))+'sysinfo.ini';
ini_file:=tinifile.Create(filename);
parameter1:=ini_file.ReadFloat('parameter','pixel',100);
parameter2:=ini_file.ReadFloat('parameter','dia',50);
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
showmessage(Floattostr(parameter1));
end;
end.

运行以后showmessage弹出的值是0，请问是怎么回事？
还有使用什么语句，自动载入当前路径下的BMP位图？谢谢

我在ini文件中已经赋值了
[parameter]
;测高参数
pixel=80.50
dia=1.50

你读的内容内容不是指向sysinfo.ini文件吧
就是说parameter1纯粹只是系统赋的初值,而不是你读出来的

请问如何解决啊？我觉得你说得在理