奇迹重现 Delphi 2005赏析

• 
  
  
  　　并且设置它的enable属性为false，这样就可以使timer控件不会在开始时就运行了。
  
  　　（5）编写代码
  
  　　我们可以通过在主窗口下面的分页中，进行代码和设计窗口的切换。如下图所示：
  
  
  
  
  　　我们可以点击code页，来到代码窗口，可以看到Delphi 为我们添加了许多的代码。如下图所示：
  
  
  
  
  　　剩下的当然就是我们自己来编写自己的代码了。
  
  　　在代码窗口对Twinform类的定义后面中添加下面的代码：
  
  //自定义变量
  type
  　suijishu = array [ 1 .. 10 ] of integer ; //用来保存 加数和被加数
  　deshu = array [ 1 .. 10 ] of integer ; //用来保存 每道题的得数，所填的数，与此比较，判断对误
  
  var
  
  　sjs : suijishu ; //定义suijishu类型的一个实例
  　ds : deshu ; //定义deshu类型的一个实例
  　temp : integer ; //定义一个临时变量
  　tishu : integer ; //定义一个变量，存储已经做得题数
  　shijian : integer ; //定义一个变量，存储做题所用的时间
  　　在implementation段后面，添加下面的代码：
  
  //自定义过程
  procedure fenpei( ) ; //给sjs数组分配随即数值
  var
  　i : integer ;
  begin
  　Randomize ;
  
  　for i : = 1 to 10 do
  　begin
  　　sjs [ i ] : = Random ( 10 ) ;
  　end ;
  end ;
  
  procedure jisuan ( ) ; //得到结果，并保存到ds数组中
  var
  　i : integer ;
  begin
  　temp : = 0 ;
  　for i : = 1 to 10 do
  　begin
  　　temp : = temp + sjs [ i ] ;
  　　ds [ 1 ] : = temp ;
  　end ;
  end ;
  　　这里我们定义了两个过程fenpei 和 jisuan 。fenpei用来给sjs数组分配随即数值，这样就可以出题了，jisuan将得到算数的结果，并保存到ds数组中
  
  　　做题时，首先是要点击“出题”按钮。所以要在TWinForm . Button1 _ Click事件中添加代码，调用fenpei和jisuan过程来初始化题目并得到答案。之后显示在label3中，并且开始计时，在label4中显示正在做第几题。下面是这里所要添加的代码：
  
  
• 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 奇迹重现 Delphi 2005赏析 相关文章：
• ·奇迹重现 Delphi 2005赏析
• 奇迹重现 Delphi 2005赏析 相关软件

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

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

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

精品推荐

热点TOP10

特别推荐