|
nifile.ReadString(''''newini'''',''''用户名称'''',''''胡长浩'''');
edit2.text:=inttostr(myinifile.readinteger
(''''newini'''',''''已运行时间'''',0));
checkbox1.Checked:=myinifile.readbool
(''''newini'''',''''是否正式用户'''',False);
{newini是小节名字，中间字段是关键字的名字，第三个字段是缺省值。当myini.ini不存在时，上面的语句自动创建这个文件，上边几行里的引号是单引号}
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
myinifile.writestring(''''newini'''',''''用户名称'''',edit1.Text);
myinifile.writeinteger(''''newini'''',''''已运行时间'''',
strtoint(edit2.text));
myinifile.writebool(''''newini'''',''''是否正式用户'''',
checkbox1.Checked);
myinifile.Destroy;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit2.Text:=inttostr(strtoint(edit2.text)+1);
end;
end.
上一页 [1] [2]
[聊天工具]解读珊瑚虫CoralQQ.ini代码的秘密 [系统软件]解析boot.ini文件，亲身经验
[VB.NET程序]VB源码推荐：一个操作Ini文件的类 [VB.NET程序]在VB6中用WINDOWS API函数读写INI文件
[Delphi程序]Delphi中初始化.Ini文件的读写
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
