发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: BorlandDev
标  题: 用Delphi“玩”编程 [4]
发信站: 哈工大紫丁香 (2001年03月13日17:46:27 星期二), 转信

用Delphi“玩”编程 [4] <<上一篇 下一篇>> 
      经过前三期的学习你是否喜欢上易学好用的Delphi呢？要程序实现各种奇妙
的功能（特别是希望在运行期实现），一定要编写代码。我们的程序中已写过不少
代码，它们都是用Pascal语言编写的。
    Delphi的编程语言是以Pascal为基础的。Pascal语言具有可读性好、编写容易
的特点，这使得它很适合作为基础的开发语言。同时，使用编译器创建的应用程序
只生成单个可执行文件(.EXE)，正是这种结合，使得Pascal成为Delphi这种先进开
发环境的编程语言。
    Pascal语言包含众多编程知识，这区区几百字远不能囊括。在此我们只说个大
概结构，使大家对源程序结构有一定的了解。再向各位提供几个实用招式和有趣的
实例。相信掌握了这几招后，面对普通编程，你都可以大概应付。打开我们前面的
程序如下，每行旁附中文注释：
    unit Unit1;（1、单元首部语句）
    interface（2、接口部分。用于声明程序中引用的单元、常量、类型、变量、
过程和函数）
    uses 单元引入部分
    Windows, Messages, SysUtils, Classes, Graphics, Controls, 
    Forms, Dialogs,MPlayer, StdCtrls, ExtCtrls, ComCtrls;
    Type
    TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton; 类型声明
    Memo1: TMemo;
    MediaPlayer1: TMediaPlayer;
    Button3: TButton;
    procedure Button1Click(Sender: TObject); 过程（函数）声明
    procedure Button2Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;
    var 引用声明
    Form1: TForm1;
    Implementation（3、实现部分。我们写的语句都在这部分。它通过许多“过
程"实现我们要求的功     能。）
    {＄R ＊.DFM}
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    MediaPlayer1.Close;一个“过程"
    Memo1.Lines.Text:='This is my project.';
    end;
    procedure TForm1.Button2Click(Sender: TObject);
    begin
    close; 
    end;
    end。（4、结束部分）
    你会发现程序中有很多“声明"，“声明"就好像给对象一个姓名并向电脑报到
。只有作出声明，使     用时电脑才懂得你在“叫"哪个对象做事。在上一期我们
也曾把“i"声明为实数。在Delphi中，我们几乎不用考虑声明，因为Delphi会自动
生成大部分的代码和几乎全部的声明。只有一些自定义函数需要我们去声明。看看
我们的程序，只有寥寥几行是我们键入的。Delphi在努力减轻我们的负担。另一个
值得注意的地方是：Pascal语言规定，每一语句都用“；"作结尾，千万别忘了这
小东西。
    由于文字所限，大家一定还觉得不够过瘾，但也只好暂时告别。实用招数和趣
味例子将在下一期隆重登场，各位记得来捧场啊!

   
 
  如果你有什么好的资料，可以寄给我哟:) <<回到首页 <<上一篇 下一篇>> 



------------------------------------------------------------------------
--------
  Delphi 技巧集 
   
  Copyright 1999.11 by 东子 Mail to me! 
感谢广州视窗提供主页空间 


--

       大海无边天做岸
               山登绝顶我为风

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]