控制INI文件几法

控制INI文件几法 


  要利用.INI文件做程序有关数据的存储工作,就需要能读和写.INI文件,所以列了如下方法给大家参考:

   从.INI文件中获取字符串

  var

  strResult char;

  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;
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值