Delphi项目构成之单元文件PAS

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

unit Unit1;

interface

uses            { List of units goes here }

  Windows, Messages,

  SysUtils, Variants,

  Classes, Graphics,

  Controls, Forms, Dialogs;

                { Interface section goes here }

type            { type关键字用来声明一个新的类型}

  TMyArray = array[0..19] of Byte;

                { 声明TMyArray用来代替array[0..19] of Byte}

const           { const关键字用来声明常量}

  AppCation = ‘Hello World‘;

                { AppCation由于在interface段声明，它在单元的任何地方都可以用}

var             { var关键字用来声明变量，也分interface段和implementation段}

  X: Integer;

  MyArry: TMyArray;

                { MyArray为刚才定义的TMyArray新类型}

  procedure DoSomething;

                { 声明一个DoSomething过程}

implementation

uses            { List of units goes here }

  SysUtils, Variants;

var

  ObjList: TObjectList;

const           { BaseX,BaseY由于在implementation段声明，只能在单元内使用}

  BaseX = 20;

  BaseY = 200;

                { 实现interface段声明的DoSomething过程}

  procedure DoSomething;

  begin

                { Code for DoSomething goes here.}

  end;

                 //C++风格的注释，只能用于单行注释

                (*

                  相同类型注释不能嵌套

                *)

                {

                 推荐使用的注释符号

                }

                { Implementation section goes here }

initialization

                { Initialization section goes here }

  ObjList := TObjectList.Create;

finalization

                { Finalization section goes here }

  FreeAndNil(ObjList);

end.