文档.txt

oracle基础知识讲义

   欢迎访问:http://vip.hackdiy.com  http://www.hackdiy.net

  大家好.今天我给大家做的教程是一个简单的加法计算器,为了让每个初学者都能看得
懂.可能会写得比较复杂..但是详细,废话就不多说了.我们开始吧!!
   为了节约时间,,加法计算器的模版我已经做好了.对于模版都还不会画的朋友.请参考我们站的其他新手教程..

   首先我们要做的是为每一个数字键都设定单击事件,看见看我做.双击模版上的数字键,.

Button1Click  这个事件过程.就是单击组件将触发的事件过程,
   我们来编写事件过程的代码!
 Edit1.Text:=Edit1.text+'1';  
              这句代码就是单击数字键1将触发的事件..
  Edit1    就是 计算器的计算拦!
  Text    就是计算拦里的内容!
        这句代码的意思就是

    单击数字键1将在  Edit1的后面添加上一个字符  1   ;
  1 的左右加  ' ' 符号. 就是说明添加的是一个字符..(因为Edit1.text 里只能是字符,而不能是一个值);
    

接着我为每个数字健都添加这样的代码.当然如果是数字健2.添加的就是 Edit1.Text:=Edit1.text+'2';               

每个数字健都添加完了.我们来试一下效果!

都还行吧???

那么现在我们为符号健来添加代码了..还是一样.双击符号健,进入单击他的事件过程.

我们先设一个整型变量S,用来储存数值.


S:=StrToInt(Edit1.text);   把Edit1里的字符转化为数值保存进S这个变量里!!
StrToInt    Str 就是字符的意思   To 就是转化的意思   Int 就是整数的意思

把Edit1里的数据保存进了S,那么我们就要把Edit里数据清空.这样好输入要+的数值,


Edit1.Text:=IntTostr(StrToInt(Edit1.Text)+S);   
Edit1.text:='';
S:=0;

这3句代码就不用我解释了吧.大家应该能理解了... 

我们来试一下性能!!!

希望大家能看得懂!!
   冰冷的心制作!
    


    欢迎访问:http://vip.hackdiy.com  http://www.hackdiy.net