建立、读取、存贮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;

 

  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值