delphi.txt

delphi教程,入门教程

---------------------------------------------------------------------------------
黑鹰基地教程
黑鹰基地www.3800cc.com
专业的黑客安全技术培训基地



多抽出一分钟时间学习.让你的生命更加精彩. 
---------------------------------------------------------------------------------
                            DelPhi7教程之菜鸟先飞版
                                          -----帮你打通任督二脉 （第1式）


     大家好,很多人对程序设计,都认为是遥不可及、深不可测的,只知道很多黑客软件,游戏外挂,等计算
机程序都是用这个写成,想学,但又不知道如何下手,今天我带大家一起来学习DelPhi,高手就别来了.此教程
只限于菜鸟学习,还请高手多多指教,我也是个菜鸟,和很多人一样.只希望和大家一起共同进步,
好吧,废话就别说了,我们现在开始.
 
     我们这里所用到的是Delphi 7 现在已经有新的版本了,基于习惯这里还是用这个,它是Borland公司
推出的一款可以在WINdows环境下运行的面向对象的编程软件,它的特性主要表现在.NET支持,对建模的支
持,新的第三方组件与工具,新的XP主题,编辑器......这里就不一一说了,慢慢的就会知道它的好处.

     关于如何安装Delphi 这里也就不介绍了.相信大家有能力搞定的,如果没有软件的朋友可以去网上
搜索,很多的.也可以买一张..
   
     大家可以自己先认识一下Delphi的集成开发环境,了解在集成开发环境中主窗口,菜单栏,组件栏,对
象树状列表,对象编辑器,窗体设计器,代码编辑器,工程管理器的功能,我们会在例子中讲到.

这里我就不详细讲了。老机子 卡得很。。。还在下载东西。网又慢。55555555。不多说了。免得耽搁时间
    下面进入今天的主题..
 
    Delphi 创建WINdows应用程序一般步骤:
1.需求分析和总统设计
2.代码开发与程序调试
3.投入运行与程序理解       (希望大家能明白我讲的意思  ^-^ )
 
   关键是代码的开发,其他也不能忽视
 代码开发和程序调试指的就是:
1.程序窗体的设计    2.程序代码的设计   3.编译和调试程序

下面我们一起动手来开发一个小程序,功能很简单,主要让大家了解程序设计的过程,细节问题以后慢慢讲
结合上面的步骤1先需求分析和总统设计,我们这个程序是用于计算成绩,输入各科成绩,点击[计算]后得到
各科成绩的总分和平均分.
 下面开始我们代码开发与程序调试之旅:  (看我操作)

启动Delphi。我已经启动好了。。。
1.创建一个新的工程
一般运行Delphi后程序会自动创建一个新的工程,如没有可以手动,也可以通过[工具] | [环境选项]来
设置.
2.程序窗体设计 
⑴放置组件:这里我们用到6个编辑框组件,6个标签框组件,1个按钮组件.
可以点一下放一个,也可以按住[Shift]键,选中组件,然后在新建的工程中单击,单击一次为一个.创建完
后只要单击组件面板中左边的箭头图标便可取消选择,用同样的方法把需要的组件创建完

⑵排列组件:单击鼠标右键选择 [Position] | [对齐] 来调整,主要是为了见面的美观。可以根据网格来。
完成后。。

⑶锁定组件:选择菜单栏 [编辑] | [锁住控键]  

⑷设置窗体和组件的属性:
Form1            Caption         成绩计算器
Button1          Caption           计 算
label1           Caption           语 文
Edit1            text            (设置为空)
label2           Caption           数 学 
Edit2            text            (设置为空)
label3           Caption           外 语
Edit3            text            (设置为空)
label4           Caption           其 他
Edit4            text            (设置为空)
label5           Caption           总 分 
Edit5            text            (设置为空)
label6           Caption           平均分
Edit6            text            (设置为空)

调整好后。便可以。。编写代码了。。。

3.编写程序代码
⑴定义事件处理过程:选择Button1([计算])按钮,在对象查看器中选择Events 页 选中OnClick事件右边的
编辑栏,则自动填入Button1Click,同时代码编辑器被激活,会自动生成OnClick事件的过程代码框架.可以
在这个框架中添加代码

⑵添加代码:先定位事件处理过程.双击Button1([计算])按钮便可找到位置..在添加事件处理代码,
代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var
 s1m,acer:double;                          //定义名称
begin
 s1m:=strtofloat(Edit1.text)+strtofloat(Edit2.text)
      +strtofloat(Edit3.text)+strtofloat(Edit4.text);          //s1m为 总分 所以这里用加法
 acer:=s1m/4;                                                 //acer为 平均分 所以这为除法
 Edit5.Text :=floattostr(s1m);
 Edit6.text :=floattostr(acer);                         // 显示

end;


我这里就直接复制上去的，大家最好是打上去。习惯一下。。有好处的。我是为了节约时间

4.编译和运行程序
可以按[F9]
也可以。。点这个，他是编译和运行一起的。。也可以。。。
这样..属于自己的一个程序就开发完成了...测试一下。。OK。。。
好卡啊。。。。出错了。。。。在试一下。。运行好了。。算算。。OK。。GOOD。。
接下来我们介绍Delphi中的文件结构
下面是刚才开发的程序中的窗体对应的单元文件代码
unit Unit1;               //单元头  unit标志下面的代码是一个单元,后面跟单元文件,扩展名为.pas

interface                  //标志单元接口部分开始,单元接口部分定义变量,类型,过程等,可以被其他
                             单元或程序的其他部分访问.


uses                       //单元列表部分  uses语句告诉程序最终的执行代码中需要哪个函数和过程
                                           会自动把一些必须的单元包括进去 如下面这些
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type                      // 这部分用来定义用户自己的类型,此处定义一个TForm派生出的TForm1类
                              它包括了一个按钮,6个标签和6个编辑框,一个处理按钮单击时间的工程
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var                            //这部分用来定义变量和对象变量,也可以用来定义其他implementation
                                 部分的变量,工程,函数等.
  Form1: TForm1;

implementation                  //这部分定义所有在interface部分说明过的函数,过程等.

{$R *.dfm}                     //该语句把单元连接到窗体.dfm文件.删除的话会发生编译错误 

procedure TForm1.Button1Click(Sender: TObject);
var
 s1m,acer:double;
begin                            //执行部分
 s1m:=strtofloat(Edit1.text)+strtofloat(Edit2.text)
      +strtofloat(Edit3.text)+strtofloat(Edit4.text);
 acer:=s1m/4;
 Edit5.Text :=floattostr(s1m);
 Edit6.text :=floattostr(acer);

end;

end.            //用一个"." 来标志程序的结束
     

这些很关键,大家下来慢慢看...今天到这里就结束了。希望大家希望。。
       功力提升一层.(@_@)~~~~~~~~~~~HOHO。。。
           下1式我们介绍Object Pascal语言 

                                                             By   ︶殘酷De喜劇
                                                             QQ    5941998      
                                                         论坛ID    游戏而已     
                                                         E-Mail    [e-mail]