我在试做INI文件,但不通调试通过。//通过单步跟踪发现是创建ini时发出错误!
try
myini.Create(extractfilepath(application.exename)+'myini.ini');//这一句出错
myini.WriteString('1','1','1');
myini.WriteString('1','2','2');
myini.WriteString('1','3','3');
myini.WriteString('2','1','1');
myini.WriteString('2','2','1111');
myini.ReadSection('1',combobox1.Items);
myini.ReadSections(combobox1.Items); except
on e:exception do showmessage(e.Message); end; 提示错误如下:
project1.exe raseid exception class EAcessVirlation with message 'access violation at address 00404014 in module'project exe1.write of address 00000004'.
try
myini.Create(extractfilepath(application.exename)+'myini.ini');//这一句出错
myini.WriteString('1','1','1');
myini.WriteString('1','2','2');
myini.WriteString('1','3','3');
myini.WriteString('2','1','1');
myini.WriteString('2','2','1111');
myini.ReadSection('1',combobox1.Items);
myini.ReadSections(combobox1.Items); except
on e:exception do showmessage(e.Message); end; 提示错误如下:
project1.exe raseid exception class EAcessVirlation with message 'access violation at address 00404014 in module'project exe1.write of address 00000004'.
改成:
try
myini : = TIniFile.Create(extractfilepath(application.exename)+'myini.ini');//这一句出错
try
myini.WriteString('1','1','1');
...
myini.ReadSection('1',combobox1.Items);
myini.ReadSections(combobox1.Items);
finally
myini.Free;
end;
except
on e:exception do showmessage(e.Message);
end;