新手的问题,急 就是程序第一次运行的时候要用户输入数据,要将这些数据存储到ini文件中,第二次运行该程序的时候将这些数据从文件中读出,具体该怎样做/ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 早说呀,函数function readinfofromsysini(thesection,thekeyname,thefilepath:string):string;var sysini:Tinifile;beginsysini:=Tinifile.create(thefilepath+'\XX.ini');result:=sysini.readstring(thesection,thekeyname,'');sysini.free;end;procedure writeinfotosysini(thesection,thekeyname,thefilepath,thevalue:string);varsysini:Tinifile;beignsysini:=Tinifile.create(thefilepath+'\xx.ini');sysini.writestring(thesection,thekeyname,thevalue);sysini.free;end;//说明:ini格式 :[insys]aaa=3//调用时thesection=‘insys’,thekeyname=‘aaa' 同意 zhangpeigao(zhangpeigao) 方法。 Tclientdataset下的索引indexdefs的groupinglevel是怎么设置的 生猩猩了,散分 百度贴吧助手新版开发中 一个抓屏的问题(屏幕是怎样变化的)? 这是怎么回事啊!!!我急死了!! EMS QuickExport 怎么用? 在edit里输入的字母为大写!也就是小写变大写! ado异常处理的问题,请高手多多指教--急急急急急急 怎么使用控件树组???? edit1(0).....edit(10)????怎么声明啊?? 如何在DELPHI中动态改变端口 请问数据库连接的问题? 用过的ehlib看过来
function readinfofromsysini(thesection,thekeyname,thefilepath:string):string;
var sysini:Tinifile;
begin
sysini:=Tinifile.create(thefilepath+'\XX.ini');
result:=sysini.readstring(thesection,thekeyname,'');
sysini.free;
end;procedure writeinfotosysini(thesection,thekeyname,thefilepath,thevalue:string);
var
sysini:Tinifile;
beign
sysini:=Tinifile.create(thefilepath+'\xx.ini');
sysini.writestring(thesection,thekeyname,thevalue);
sysini.free;
end;
//说明:
ini格式 :[insys]
aaa=3
//调用时thesection=‘insys’,thekeyname=‘aaa'