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'
请问是什么问题,如何修改
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'
请问是什么问题,如何修改