procedure Tflash.FormCreate(Sender: TObject);
var
inifile:TIniFile;
ip_string:string;
begin
try
inifile:=TInifile.Create(ExtractFilePath(Application.ExeName)+'server.ini');
inifile.WriteString('SQLSERVER', '[ip]', '192.168.1.21');
ip_string:=inifile.ReadString('SQLSERVER','IP',ip_string);
showmessage(ip_string);
finally
inifile.free;
// GetPrivateProfileString('SQLSERVER','ip','192.168.0.1',ip_string,100,'D:\软件工程\物流管理之采购部\server.ini');
end;
end;
这个是我写的,可是读不出其中的值来?
server.ini中是这样的:
SERVER
IP=192.168.1.21
var
inifile:TIniFile;
ip_string:string;
begin
try
inifile:=TInifile.Create(ExtractFilePath(Application.ExeName)+'server.ini');
inifile.WriteString('SQLSERVER', '[ip]', '192.168.1.21');
ip_string:=inifile.ReadString('SQLSERVER','IP',ip_string);
showmessage(ip_string);
finally
inifile.free;
// GetPrivateProfileString('SQLSERVER','ip','192.168.0.1',ip_string,100,'D:\软件工程\物流管理之采购部\server.ini');
end;
end;
这个是我写的,可是读不出其中的值来?
server.ini中是这样的:
SERVER
IP=192.168.1.21
解决方案 »
- 请老师帮忙,问个 Vclzip 的问题
- Web牛人群
- 在动态库中有一声明 GetFC(LPSTR A,LPSTR B,UCHAR *C,STRU &s),在DELPHI中如何使用(急!!!!!!!!)
- 求教DBGridEh即时取值问题~~
- Access数据库可否用于编写网络版程序?
- delphi 与 matlab 连用的问题,急!
- 我是个菜鸟,请问一道简单 的问题呢,怎么实现文件搜索啊,
- 关于发邮件的问题
- 特急!!!!在Delphi如何获取局域网客户的IP地址 ?
- *都说L连接SQL SERVER ,ADO 比 BDE 好?到底好到那里?为什末只能给20 分呢?在来一次。*
- Delphi7调用Word:如何在插入表格之后再在表格之后插入其他文字——在线结贴
- 关于窗体的释放???
inifile.WriteString('SQLSERVER', 'IP', '192.168.1.21');ip_string:=inifile.ReadString('SQLSERVER','IP','');
inifile:=TInifile.Create(ExtractFilePath(Application.ExeName)+'server.ini');
try
inifile.WriteString('SQLSERVER', 'ip', '192.168.1.21');
inifile.ReadString('SQLSERVER','IP',ip_string);
showmessage(ip_string);
finally
inifile.free;按这样就可以了
ip_string:=inifile.ReadString('SQLSERVER','IP','192.168.1.1');
inifile:=TInifile.Create(ExtractFilePath(Application.ExeName)+'server.ini');
try
inifile.WriteString('SQLSERVER', 'ip', '192.168.1.21');
ip_string:=inifile.ReadString('SQLSERVER','IP','192.168.0.1');
showmessage(ip_string);
finally
inifile.free;