请教:
怎样创建一个Ini文件,怎样写进和读出阿????? 马上给分!
怎样创建一个Ini文件,怎样写进和读出阿????? 马上给分!
解决方案 »
- 在一个事件下,修改二个注册表[rootkey不同]如何写啊?
- 遇到一个问题,请高手解决
- 各位大哥:我想完成从txt文件中提取一个特定的字符串,如何完成,,,急急!!!!!!
- 新写了一个文件打包的小程序,功能不是很完善,有这里的高手看看如何完善?
- 这个Debugger Exception Notification是怎么回事??
- 以知道逻辑图请问应如何写程序最好(请各位高手和朋友指点一下)
- 正在学习 COM 请教一个概念问题
- 一个问题我不明白,请大家帮忙解答!
- ★★★白给分啦!不来后悔!一道简单的选择题!
- Form3:=TForm3.Create(Form1)是何意思?
- Frame如何实现代码重用?
- 一个数学问题?回帖有分!
附源程序清单
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Classes,Graphics,
Controls,Forms,Dialogs,inifiles,StdCtrls,ExtCtrls;
type
TForm1=class(TForm)
Edit1:TEdit;
CheckBox1:TCheckBox;
Edit2:TEdit;
Label1:TLabel;
Label2:TLabel;
Timer1:TTimer;
Label3:TLabel;
procedureFormCreate(Sender:TObject);
procedureFormDestroy(Sender:TObject);
procedureTimer1Timer(Sender:TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:TForm1;implementation
var
myinifile:TInifile;
{$R*.DFM}procedureTForm1.FormCreate(Sender:TObject);
var
filename:string;
begin
filename:=ExtractFilePath(paramstr(0))+'myini.ini';
myinifile:=TInifile.Create(filename);
edit1.Text:=myinifile.readstring
('程序参数','用户名称','缺省的用户名称');
edit2.text:=inttostr(myinifile.readinteger
('程序参数','已运行时间',0));
checkbox1.Checked:=myinifile.readbool
('程序参数','是否正式用户',False);
end;procedureTForm1.FormDestroy(Sender:TObject);
begin
myinifile.writestring('程序参数','用户名称',edit1.Text);
myinifile.writeinteger('程序参数','已运行时间',
strtoint(edit2.text));
myinifile.writebool('程序参数','是否正式用户',
checkbox1.Checked);
myinifile.Destroy;
end;procedureTForm1.Timer1Timer(Sender:TObject);
begin
edit2.Text:=inttostr(strtoint(edit2.text)+1);
end;end.