关于在w2000和xp下读写ini文件(50分)

  • 主题发起人 主题发起人 jonyhuang
  • 开始时间 开始时间
J

jonyhuang

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button2Click(Sender: TObject);
var qyini:tinifile;
begin
qyIni:=TIniFile.Create('./area.ini');
label1.caption:=qyIni.Readstring('','区域','');
qyIni.Free;
qyini:=nil;
end;

procedure TForm1.Button3Click(Sender: TObject);
var qyini:tinifile;
begin
IF edit1.text<>'' THEN BEGIN
qyIni:=TIniFile.Create('./area.ini');
qyini.writestring('','区域',edit1.text);
qyIni.Free;
qyini:=nil;
END;
end;
以上程序在95,98,me下运行通过,但在win2000/xp下显示‘access violation at
address 77f526ab in modlue 'ntdll.dll' write of address 004046c1'
请问是什么问题,如何修改
 
我在XP下用都没问题啊
可能要把INI文件的路径写全吧。
 
我把路径写全也不行
procedure TForm1.Button2Click(Sender: TObject);
var qyini:tinifile;
begin
qyIni:=TIniFile.Create('d:/test/area.ini');
label1.caption:=qyIni.Readstring('','区域','');
qyIni.Free;
qyini:=nil;
end;
 
area.ini的结构是:
[]
区域=南京
是否这里出错???
 
fileini文件的第一个参数是ini文件识别参数,在2000下好象不允许为空。
 
对对对,在[]中加入参数就通过了,谢谢!
 
后退
顶部