奇迹重现 Delphi 2005赏析

日期：2007年5月2日作者：查看:[大字体中字体小字体]

procedure TWinForm . Button1 _ Click ( sender : System . Object ; e : System . EventArgs ) ;
begin
　//添加自己的代码
　fenpei ;
　jisuan ;
　label3 . text : = Convert . ToString ( sjs [ 1 ] ) + ' + ' + Convert . ToString ( sjs [ 2 ] ) + ' + ' + Convert . ToString ( sjs [ 3 ] ) + ' + ' + Convert . ToString ( sjs [ 4 ] ) + ' + ' + Convert . ToString ( sjs [ 5 ] ) + ' + ' + Convert . ToString ( sjs [ 6 ] ) + ' + ' + Convert . ToString ( sjs [ 7 ] ) + ' + ' + Convert . ToString ( sjs [ 8 ] ) + ' + ' + Convert . ToString ( sjs [ 9 ] ) + ' + ' + Convert . ToString ( sjs [ 10 ] ) + ' = ' ;

　timer1 . Enabled : = true ;
　button1 . Enabled : = false ;
　button2 . Enabled : = true ;
　shijian : = 0 ;
　tishu : = 1 ;

　richtextbox1 . Visible : = false ;
　label4 . text : = '第' + Convert . ToString ( tishu ) + '题' ;

　textbox1 . Clear ;

end ;
　　之后我们需要在文本框（ textbox1 ）中填写得数，点击“下一题” ，就可以从新开始一道新的题目了。但为了统计所做题目相关信息，如：正误等，所以我们还要在福文本框中添加相应的信息。

　　按照前面的构思我们要在TWinForm . button2 _ Click事件中加入下面的代码:

procedure TWinForm . button3 _ Click ( sender : System . Object ; e : System . EventArgs ) ;
begin
//添加自己的代码

if textbox1 . Text = Convert . ToString ( ds [ 1 ] ) then
begin
　richtextbox1 . Text : = richtextbox1 . text + label3 . Text + textbox1 . Text + ' 正确' + chr ( 13 ) + chr ( 10 ) ;
　fenpei ;
　jisuan ;
　label3 . Text : = Convert . ToString ( sjs [ 1 ] ) + ' + ' + Convert . ToString ( sjs [ 2 ] ) + ' + ' + Convert . ToString ( sjs [ 3 ] ) + '+ ' + Convert . ToString ( sjs [ 4 ] ) + ' + ' + Convert . ToString ( sjs [ 5 ] ) + ' + ' + Convert . ToString ( sjs [ 6 ] ) + ' + ' + Convert . ToString ( sjs [ 7 ] ) + ' + ' + Convert . ToString ( sjs [ 8 ] ) + ' + ' + Convert . ToString ( sjs [ 9 ] ) + ' + ' + Convert . ToString ( sjs [ 10 ] ) + ' = ' ;
　TextBox1 . Text : = ' ' ;
　tishu : = tishu + 1 ;
　label4 . text : = '第' + Convert . ToString ( tishu ) + '题' ;

　end
else
begin
　richtextbox1 . Text : = richtextbox1 . text + label3 . Text + textbox1 . Text + ' 错；正确得数为：' + Convert . ToString ( ds [ 1 ] ) + chr ( 13 ) + chr ( 10 ) ;
　fenpei ;
　jisuan ;
　label3 . Text : = Convert . ToString ( sjs [ 1 ] ) + ' + ' + Convert . ToString ( sjs [ 2 ] ) + ' + ' + Convert . ToString ( sjs [ 3 ] ) + ' + ' + Convert . ToString ( sjs [ 4 ] ) + ' + ' + Convert . ToString ( sjs [ 5 ] ) + ' + ' + Convert . ToString ( sjs [ 6 ] ) + ' + ' + Convert . ToString ( sjs [ 7 ] ) + ' + ' + Convert . ToString ( sjs [ 8 ] ) + ' + ' + Convert . ToString ( sjs [ 9 ] ) + ' + ' + Convert . ToString ( sjs [ 10 ] ) + ' = ' ;
　textbox1 . Text : = ' ' ;
　tishu : = tishu + 1 ;
　label4 . text : = ' 第' + Convert . ToString ( tishu ) + '题' ;
end ;
end ;
　　对于“完成“按钮，我们所要做的就是在此按钮被点击时，让福文本框的可见性变为true,这样就可以显示刚才所保存的所有做题信息了。

　　代码如下所示：
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] 下一页
奇迹重现 Delphi 2005赏析相关文章：
·奇迹重现 Delphi 2005赏析
奇迹重现 Delphi 2005赏析相关软件

上一篇:用Delphi实现快闪窗体信息提示

下一篇:基于Delphi的“流”编程实现文件加密器

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

奇迹重现 Delphi 2005赏析

精品推荐

热点TOP10

特别推荐