● 用Delphi“玩”编程（4) - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: georgehill (佐治·希尔【多情网虫无情网】), 信区: Program
标  题: 用Delphi“玩”编程（4)
发信站: BBS 荔园晨风站 (Sun Mar 12 02:23:19 2000), 转信

资料整理·中国程序员网站

用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 襍ender: 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语言规定，每一语句都用“；"作结尾，千万别忘了这小东西。
    由于文字所限，大家一定还觉得不够过瘾，但也只好暂时告别。实用招数和趣味
例子将在下一期隆重登场，各位记得来捧场啊!

--         那你可不可以教我，
        有什么办法可以不去喜欢一个人呢？

                -- Bye 赤明莉香 --
我是来自大富翁的小美！^_^

※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.1.115]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店