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.

ini文件

上一页  [1] [2]