Delphi学习之一:Programs and units

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

I Programs and units

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

PASPascal文件,Pascal单元的源代码,可以是与窗体有关的单元或是独立的单元;

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

DCUDelphi Compile Unit编译后的单元文件,程序连接时需要它;

DPRDelphi Project文件,包含了Pascal代码,应用系统的工程文件;

DPKDelphi Packge Source包文件的源代码;列出了包所包含的文件和包所依赖的包,以及包描述信息,包编译选项等。

RESResource FileWindows的资源文件,可以定义光标,位图,图标资源,可以使用ImageEditor编辑;

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

 

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

DCP:包含了包(Package)的头信息和包中单元文件的dcu/dpu文件的二进制映像文件dcpbpl的差别可以用dcudll/exe的差别来理解!delphi编译使用到包的文件时需要此包的dcp文件,此文件可由源代码生成,一般无需进源代码库

DLL:动态链接库文件

CABActiveX控件包文件

CFGProject Configuration File编译器可读的配置文件

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

DRL/DRORepository文件。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     {interfaceimplementation为止的部分,该部分声明可供其他单元使用的变量、常量、类型、函数和过程}
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部分,那么它们的执行顺序与这些单元在programuses字句中的出现顺序一致!

//好处: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语句直接指明文件的路径。

5initializationfinalization具体在什么时候执行?

  关键字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


评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值