碰到一个奇怪的问题,请大家帮忙解决
代码如下:
uses IniFiles;
var MyIni: TIniFile;
begin
MyIni:=TIniFile.Create('sysmon.ini');
edit1.text:=MyIni.ReadString('ServerConnection','SystemDBServer','');
end;
但是却不能显示项目所对应的值,不知是为什么?
后来我从WINDOWS目录下拷贝了一个win.ini文件,同样的写法,却能显示项目值,但不是指定项目的值(显示的是第一个项目值),同样不解?WIN.INI文件的内容如下:
[MCI Extensions.BAK]
aif=MPEGVideo
aifc=MPEGVideo
aiff=MPEGVideodsdsdsds
asf=MPEGVideo
asx=MPEGVideo
au=MPEGVideosysmon.ini文件的内容如下:[ServerConnection]
SystemDBServer=provider=sqloledb.1;server=athena;database=edzsys1;uid=dd;pwd=redips
UserDBServer=provider=sqloledb.1;server=athena;database=edzuser;uid=sd;pwd=redips
代码如下:
uses IniFiles;
var MyIni: TIniFile;
begin
MyIni:=TIniFile.Create('sysmon.ini');
edit1.text:=MyIni.ReadString('ServerConnection','SystemDBServer','');
end;
但是却不能显示项目所对应的值,不知是为什么?
后来我从WINDOWS目录下拷贝了一个win.ini文件,同样的写法,却能显示项目值,但不是指定项目的值(显示的是第一个项目值),同样不解?WIN.INI文件的内容如下:
[MCI Extensions.BAK]
aif=MPEGVideo
aifc=MPEGVideo
aiff=MPEGVideodsdsdsds
asf=MPEGVideo
asx=MPEGVideo
au=MPEGVideosysmon.ini文件的内容如下:[ServerConnection]
SystemDBServer=provider=sqloledb.1;server=athena;database=edzsys1;uid=dd;pwd=redips
UserDBServer=provider=sqloledb.1;server=athena;database=edzuser;uid=sd;pwd=redips
解决方案 »
- ●●● 100本Delphi书籍下载...........................................
- ★★★★★社区总体设计★★★★★[D版热心网友参与一下]
- 请大家推荐一款桌面型数据库。
- 怎么使拖拉文件到我的应用程序或双击某个类型的文件直接打开它
- 如何关联FLASH文件到我的程序?
- 关于如何设定TClientDataSet的DataSetField属性(内详),急急急!!在线等待,问题解决即结贴!
- VC代码转delphi,请各位高手帮忙呀
- delphi自定义函数或过程,能够使其被sql查询语句调用问题?
- Delphi6的Indy控件组中哪个控件可直接支持网络文件传送?
- 李维的DELPHI5.x电子商务篇P81例子中(request.contentfields.indexofname('cbmd53')<>-1)时什么意思???
- 怎样捕获DLL弹出的窗体,谢谢大家指点
- 高手进
var MyIni: TIniFile;
begin
MyIni:=TIniFile.Create('c:\a.ini');
MyIni.WriteString('ServerConnection','SystemDBServer',
'provider=sqloledb.1;server=athena;database=edzsys1;uid=dd;pwd=redips');
MyIni.WriteString('ServerConnection','UserDBServer',
'provider=sqloledb.1;server=athena;database=edzuser;uid=sd;pwd=redips');
MyIni.Free;
end;procedure TForm1.Button2Click(Sender: TObject);
var MyIni: TIniFile;
begin
MyIni:=TIniFile.Create('c:\a.ini');
Edit1.Text := MyIni.ReadString('ServerConnection','SystemDBServer','');
Edit2.Text := MyIni.ReadString('ServerConnection','UserDBServer','');
MyIni.Free;
end;
没问题,你自己用程序写进入,再读出来试一下!