盒子论坛 v2.1

我在DELPHI里使用INI文件，老是出现BIOS错误，我已经在USES 中添加了Inifiles,
定义变量时使用：
Var
  myinifile:Tinifile;
begin
  myinifile:=Tinifile.create('inifile.ini');
  ...
end;
结果写文件没什么错误，但读文件时老是出错，请各位高手指点一下，小弟不胜感激！
----------------------------------------------
-

作者：

zsredmoon (=^@^=)	★☆☆☆☆	-
	盒子活跃会员

2003/12/1 9:41:45

1楼：

是不是这样做的？
var myini :tinifile;
begin
myini:=tinifile.create('filepath');
//写
myini.writestring('title','name','values');
//读
edit1.text:=myini.readstring('title','name',');
end;

可以贴上代码大家研究哦：）
----------------------------------------------

=^@^=

作者：

30896186 (缘来一家人)	★☆☆☆☆	-
	盒子活跃会员

2003/12/8 23:45:16

2楼：

user inifiles;
myinifile:TInifile; var filename:string;
begin
filename:=ExtractFilePath(paramstr(0))+'myini.ini';
myinifile:=TInifile.Create(filename);
edit1.Text:= myinifile.readstring('程序参数','用户名称','缺省的用户名称');
edit2.text:= inttostr(myinifile.readinteger('程序参数','已运行时间',0));
checkbox1.Checked:= myinifile.readbool('程序参数','是否正式用户',False);
myinifile .writestring('程序参数','用户名称',edit1.Text);
myinifile.writeinteger('程序参数','已运行时间',strtoint(edit2.text));
myinifile.writebool('程序参数','是否正式用户',checkbox1.Checked);
myinifile.Destroy;
end;
----------------------------------------------
-

信息

登陆以后才能回复