Delphi学习之一：Programs and units

下面这些问题是delphi前辈达人所列，内容翔实，适用而且相当基础，如果能全部准确回答这些问题，说明对Delphi语言基础已经熟悉。（*）表示进一步的要求

I Programs and units

1）文件的类型。.pas、 .dpr、 .dpk、 .dfm、.res、.dof分别代表什么内容？

PAS：Pascal文件，Pascal单元的源代码，可以是与窗体有关的单元或是独立的单元；

DFM：Delphi Form File,描述窗体或数据模块及其组件属性的二进制文件。窗体界面文件,同PAS文件同名,而且一一对应,定义了窗体属性和构件的属性；

DCU：Delphi Compile Unit编译后的单元文件,程序连接时需要它；

DPR：Delphi Project文件，包含了Pascal代码，应用系统的工程文件；

DPK：Delphi Packge Source包文件的源代码；列出了包所包含的文件和包所依赖的包，以及包描述信息，包编译选项等。

RES：Resource File，Windows的资源文件,可以定义光标,位图,图标资源,可以使用ImageEditor编辑；

DOF：Delphi Option File选项文件,包括编译信息等,是一个文本文,可以直接打开看看；

 

BPL ：Borland Package library包,，是一种特殊的DLL文件,用于代码重用和减少可执行文件的长度；bpl共用的部分只使用了同一引用，而dll使用了多份拷贝

DCP：包含了包（Package）的头信息和包中单元文件的dcu/dpu文件的二进制映像文件；dcp与bpl的差别可以用dcu与dll/exe的差别来理解！delphi编译使用到包的文件时需要此包的dcp文件，此文件可由源代码生成，一般无需进源代码库

DLL：动态链接库文件

CAB：ActiveX控件包文件

CFG：Project Configuration File编译器可读的配置文件

DTI：Diagram文件，Delphi 7提供了Diagram功能，可以在单元文件中使用图形化的描述，此类型文件对编译源代码无影响

DRL/DRO：Repository文件。Delphi提供了repository功能，可以使开发人员共享开发模板，合理使用repository功能可以加快开发速度，开发组配置好共享的repository就可以使用

 

2）编写一个命令行的程序，具体内容自定，唯一的要求是命令行（字符界面）的程序。

命令行应用程序不包含图形用户界面 (GUI)。通常，命令行应用程序从控制台读取输入，并将输出写入该控制台，而不是写入图形窗口。【new】 console application

program Project1;   //控制台输出九九乘法表

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  i, j : Integer;

  res: String;

 

begin

   for i := 1 to 9 do

   begin

     for j := 1 to i do

     begin

       res := InttoStr(i*j) + stringofchar(' ', 2-length(InttoStr(i*j)));

       Write(InttoStr(i) + '×' + InttoStr(j) + '=' + res + '  ');

     end;

     writeln;

   end;

   readln;   //按任意键退出

end.

3）什么是Unit文件？一个Unit文件包含几部分？Unit文件的优点。

unit Unit1;    {文件定义：一个名为Unit1的单元文件}

interface     {从interface到implementation为止的部分，该部分声明可供其他单元使用的变量、常量、类型、函数和过程}
uses           //引用单元列表，interface部分的uses内容对整个单元都有效

  Windows, Messages, Classes, Controls, Forms, Dialogs; 
type            //声明类型

  TForm1=class(TForm)

  Private

     Procedure showinfo(info: string);

  Public

    {public declarations}

  End;

  Procedure showinfo(info: string);  //声明函数和过程

Var                 //声明变量

   Form1:TForm1;

 

implementation {这个部分完成单元的私有声明，并实现interface声明的类、函数和过程}

uses//implementation部分的uses内容只对implementation有效，interface不需要而implementation需要的单元应该在这里引用

   SysUtils, Variants, Math;

Var

   ObjList: TObjectList;

 

{$R *.DFM}               {编译对应的DFM文件}  
 //如果是对应窗体的单元文件,会有这句. $R 指令用于加载一个外部资源文件,这里是指加载同名的窗体文件一起编译.  

 

{实现interface部分声明的函数和过程}

Procedure showinfo(info: string);

begin end;

{实现interface部分声明的类}

{TForm1}

Procedure TForm1.showinfo(info: string);

begin end;

initialization   {单元初始化部分:可选，相当于类的构造函数}

    ObjList := TObjectList.Create;
finalization     {单元终止部分：可选，类似于类的析构函数Destroy的功能}  

    FreeAndNil(ObjList);
end.  

//注意：如果几个单元都有initialization/finalization部分，那么它们的执行顺序与这些单元在program的uses字句中的出现顺序一致！

//好处：unit单元相当于C语言的子程序。基本上Delphi每个窗体都有一个对应的单元。当你为应用程序创建窗体时，你就创建了一个与该窗体相联系的新单元。然而单元也可以独立于窗体而存在。而且一个单元可以由多个程序共享。 

 

项目文件{program单元，相当于C语言的Main程序}

program Project1;
uses

   Windows, Forms,

　Unit1 in 'Unit1.pas' {Form1};

{$R *.RES} //编译时需要包含与项目主文件名相同的.res文件

begin 

　 Application.Initialize; 

　 Application.CreateForm(TForm1, Form1); 

　 Application.Run;

End. 

4）在interface部分的uses子句和implementation部分的uses子句的区别？

       单元文件中，如果在interface接口部分引用了另外一个单元，则实现部分也可以调用该单元，但反之在implementation实现部分引用的单元则不能在接口部分被调用；

       在编程的时候应该尽量在一个单元的实现部分引用其他单元，而减少在接口部分的引用，以避免所谓的“循环引用”问题。比如说，单元A在接口部分引用了单元B，单元B以同样的方法引用了单元C，最后单元C又在接口部分引用了单元A，则编译时会出现循环引用的错误。解决方法是把全局的声明放到集中的单元中，尽量把引用放到实现部分。

       另外，在工程文件中的uses语句直接指明文件的路径。

5）initialization和finalization具体在什么时候执行？

　　关键字initialization标志着初始化块的开始，当一个编译后的工程运行时，每个单元的初始化块被首先执行。至于哪个单元首先被初始化则取决于被uses的顺序，先被uses的就先被初始化。初始化块和begin...end.块不能同时出现，因此，建议使用初始化块，以便也能使用销解化块的功能。

　　销解化块finalization只能伴随初始化会出现，但初始化块可以单独出现。销解化块在程序结束前被自动执行，其执行顺序与该单元被uses的顺序相反。要注意的是，初始化块可能在完全被执行之前程序就因某种错误而被中止了，但Delphi确保证销解化块被执行，因此销解块中的代码必须考虑未完全初始化的情况。

*6）在Delphi中打开一个dfm文件，阅读它的文本形式。

object Form1: TForm1

  Left = 192

  Top = 122

  Width = 870

  Height = 500

  Caption = 'Form1'

  Color = clBtnFace

  Font.Charset = DEFAULT_CHARSET

  Font.Color = clWindowText

  Font.Height = -11

  Font.Name = 'MS Sans Serif'

  Font.Style = []

  OldCreateOrder = False

  PixelsPerInch = 96

  TextHeight = 13

end

---