ini文件在应用程序中该怎样使用?(100分)

  • 主题发起人 主题发起人 mengh
  • 开始时间 开始时间
M

mengh

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在在修改一个别人做的程序,遇到一个头痛的问题,
他的源程序目录下有ini文件,我在ini文件中添加了一些
内容,可是程序运行后却并不认,是怎么回事呢?
非常着急!
另外,ini文件在应用程序中该怎样使用?
请高手回答的详细些,帮帮我这个初学者!
 
INI_FileName='IniFileName.Ini';
var
RegIni:TIniFile;
begin
RegIni:=TIniFile.Create(INI_FileName);

DEFAULT_QUEUENO:=RegIni.ReadInteger('QUEUE DEFAULT SETTINGS',
'DEFAULT_QUEUENO',
10);
MUTEX_TIMEOUT:=RegIni.ReadInteger('QUEUE DEFAULT SETTINGS',
'MUTEX_TIMEOUT',
RegIni.Free;
end;
 
Sorry,上面错了一点点:
const INI_FileName='IniFileName.Ini';
var
RegIni:TIniFile;
begin
RegIni:=TIniFile.Create(INI_FileName);

DEFAULT_QUEUENO:=RegIni.ReadInteger('QUEUE DEFAULT SETTINGS',
'DEFAULT_QUEUENO',
10);
MUTEX_TIMEOUT:=RegIni.ReadInteger('QUEUE DEFAULT SETTINGS',
'MUTEX_TIMEOUT',
5);
RegIni.Free;
end;
 
能说的明白写吗?
 
你说那里不明白?
 
INI是win31的技术,为保留程序的兼容性,Delphi中也能方便地读取INI文件。
具体内容帮助里说得很清楚。
 
[转贴]
控制INI文件几法
要利用.INI文件做程序有关数据的存储工作,就需要能读和写.INI文件,所以列了如下方法给大家参考:
从.INI文件中获取字符串
var
strResult:pchar;
begin
GetPrivateProfileString(
'windows', // []中标题的名字
'NullPort', // =号前的名字
'NIL', // 如果没有找到字符串时,返回的默认值
strResult, //存放取得字符
100, //取得字符的允许最大长度
'c:/forwin95/win.ini' // 调用的文件名
);
edit1.text:=strResult;
//显示取得字符串
从.INI文件中获取整数
edit1.text:=inttostr(GetPrivateProfileInt(
'intl', // []中标题的名字
'iCountry', // =号前的名字
0,// 如果没有找到整数时,返回的默认值
'c:/forwin95/win.ini' // 调用的文件名
));
向.INI文件写入字符串
WritePrivateProfileString(
'windows', // []中标题的名字
'load', // 要写入“=”号前的字符串
'accca', //要写入的数据
'c:/forwin95/win.ini' // 调用的文件名
);
向.INI文件写入整数
WritePrivateProfileSection(
'windows', // []中标题的名字
'read=100', // 要写入的数据
'c:/forwin95/win.ini' // 调用的文件名
);
上面的方法是调用API函数,下面介绍另一种不用API从.INI文件中获取字符的方法
var MyIni: TIniFile;
begin
MyIni := TIniFile.Create('WIN.INI');//调用的文件名
edit1.text:=MyIni.ReadString('Desktop', 'Wallpaper', '');//取得字符
end;
向.INI文件中写入字符的方法
var MyIni: TIniFile;
begin
MyIni := TIniFile.Create('WIN.INI');//调用的文件名
DelphiIni.WriteString('Desktop', 'Wallpaper', 'c:/a.bmp');
end;


 
多人接受答案了。
 
后退
顶部