|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/3/24 17:16:17 |
标题: |
|
加入我的收藏 |
楼主: |
请问谁能教教我,怎么操纵INI文件(诸如读、写之类的)!最好能给我一个源码程序!
谢了!
----------------------------------------------
|
作者: |
lsx1982 (prince_lsx) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2004/3/24 17:17:22 |
1楼: |
wait for it!!
----------------------------------------------
I love the game!
|
作者: |
|
2004/3/24 17:20:09 |
2楼: |
你是叫我等你吗?谢谢!
----------------------------------------------
|
作者: |
|
2004/3/24 17:41:46 |
3楼: |
uses IniFiles;
var ini: tinifile; s: string; begin ini := tinifile.Create('c:\setting.ini'); try s := ini.ReadString('InternetShortcut{节点名}', 'URL{要读的字串名}', ''); showmessage(s); finally ini.Free; end; end;
----------------------------------------------
???
|
作者: |
|
2004/3/24 18:35:52 |
4楼: |
要利用.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' // 调用的文件名 );
----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com
|
|