zoukankan      html  css  js  c++  java
  • delphi基本语法

    本文参考自《delphi2010语法手册》

    1. 工程文件结构

    源文件联系着unit单元,delphi主模块源文件格式为.dpr,其他模块为.pas,一个完整程序由一个.dpr和若干.pas组成。

    2..dpr 程序结构

    一个.dpr由程序头、[use从句]、主程序块组成。一个典型工程文件如下:

    1 program Project;
    2 {$APPTYPE CONSOLE}
    3 uses
    4    SysUnits;
    5 begin
    6 
    7 end.

    程序头指示所编写程序名称,良好的程序,.dpr代码尽量少,尽量将代码分布在.pas中然后再在.dpr里调用。

    在程序主文件使用到的所有.pas文件必须列在uses从句里。

    用begin和end包围的一段代码称为一个代码块。工程文件含有一个主程序块用于存放主程序代码,工程文件中的全局标识符必须声明于begin之前。

    3. 单元文件结构

    程序的每个子模块称为一个单元,每个单元存储在一个.pas文件中,一个文件对应一个单元。单元文件后缀名.pas,每个.pas文件依次包括:单元名称、Interface关键字、implementation、[initialization]、[finalization]、关键字end。一个完整的.pas文件如下:

     1 unit Unit1;      //单元名称
     2 
     3 interface        //interfae起始部分
     4    uses ...
     5 
     6 implementation  //implementation起始处
     7    uses.....
     8 
     9 initialization    //initialization部分起始处
    10 .....
    11 
    12 finalization     //finalization部分起始处
    13 .....
    14 
    15 end.              //单元文件结尾(end后必须以句号结尾)

    unit名称与.pas文件名称一致,一个.dpr中不能应用两个名称相同的.pas.

    interface至implementation之间的部分称为interface部分。该部分可定义变量、常量、例程等。并非只有此处才可以定义标识符,但只有此处定义的标识符才能被其他文件访问(全局标识符)。此部分定义的例程只是一个原型,具体的实现部分则放在implementation中。uses关键字紧接着interface之后,两者间不允许有任何其他代码。

    implementation至initialization之间的部分可书写例程的体代码,此处定义的比变量、常量、例程等,只能在本implementation单元使用,interface部分和其他单元无法使用。

    initialization至finalization之间的部分可选,此部分的代码在程序启动时运行,若多个单元中都包含该部分,则按照工程文件uses顺序执行。

    finalization部分可有可无,仅当initialization存在时才可使用此部分。程序退出时使用此部分代码,除非程序由Halt强行退出。当多个单元都存在此部分,运行顺序与initialization相反。

    4. 单元语法与uses从句

     5. delphi的数据类型

    简单类型包括:整形、字符型、布尔型、枚举、子界类型、实型。除实型以外,都是有序类型,即每个值在值域中都有一个序数。

    6. 整形:

    7. 实型:

    8. 字符类型:包括ansiChar和WideChar,ansiChar使用一个字节表示一个字符,WideChar则用两个字节表示一个字符。二者之间不能相互赋值。

    9. 布尔型:用于判断真假,只有true和false两种值。delphi内置4中布尔类型:Boolean/ByteBool/WordBoolLongBool,内存中分别占1、1、2、4个字节。

    10. 枚举类型:

    type= (标识符1,标识符2,标识符3.。。。);

    11. 子界类型:

    type
      子界类型名 = 下界..上界

    结构类型包括:集合、数组、记录

    12. 集合:

    type
      set1 = set of 有序值得集合
    
    例子:
    type
      set1 = set of 0..10;
    
    type
      set2 = set of (red,green,blue);
    
    type
      set3 = set of byte;

    13. 数组:

    静态:
    
    一维:
    type
      myarr = Array[3..5] of integer  //序号是3、45值为integer类型
    
    多维:
    type
      myarr = Array[1..3] of Array[3..5] of integer;
    或
    type
      myarr = Array[1..3,3..5] of integer;
    
    动态:
    type
      dmyarr = array of char;
    var 
      dal:dmyarr;

    14. 记录类型:

    type
      trec = record
         mem1:char;
         mem2:integer;
         ...
    end;

    15. 字符串类型:

    16. 指针类型:

    指针的声明:
    var ansiStr :^AnsiString;
    或先声明类型在声明变量:
    type pansiStr = ^AnsiString;
    var ansiStr:pansiStr;
    
    指针的赋值:
    方式有二,即将另一指针变量值赋给该指针变量,此两个变量指向同一个地址;或者将某个变量的地址赋给该变量。
    @取址符 如@ansiStr
    ^取值符 如ansiStr^

    17. 变体类型:

    variant

    18.运算符

    有序类型运算符:

    ord:返回有序值在值域中的序数
    如:ord('A') = 65
    pred:返回指定值的前一个值
    pred('B') = A
    succ:返回指定值的下一个值
    succ('A') = B
    high:返回变量能够表示的最大值或某类型的上界
    high(byte) = 255
    low:与high相反

    数学运算符:

    +
    -
    *
    /
    div    整除
    mod  求余

    逻辑运算符:

    notandorxor    异或

    位运算符:

    not    按位取反
    and   按位取且
    or      按位取或
    xor    按位取异或
    shl     左移
    shr     右移

    字符串运算符:

    +  将字符串连接

    集合运算符:

    指针运算符:

    关系运算符:

    19. 条件语句

       if语句

    1 if <条件表达式> then
    2   <语句1>
    3 else
    4   <语句2>;

    20. 选择语句

    1 Case 选择表达式 of
    2   常量1:语句1;
    3   ...
    4   常量n:语句n;
    5 Else
    6   ...
    7 End;

    21. 循环语句

      1》while

    1 While 条件表达式 do
    2    循环语句;

    例:
    while i < n do
    begin
    sum := sum+i;
    i := i+1;
    end;

      2》Repeat

    repeat 循环体
    until 条件表达式
    
    例:
    repeat
       i := i+1;
       sum := sum+i;
    until i = n;


      3》for

    for 计数器 := 初值 to/downto 终值 do
    循环体
    
    例:
    for i := 1 to/downto n do
      writeln('hello delphi');

    4》for...in

    for v in set do
      循环体
    
    例:
    var
       myset :set of AnsiChar;
       ch : AnsiChar;
    begin
      myset := ['1','2'];
      for ch in myset do
         writeln(ch);
    end.

    for in还可以遍历数组、字符串、类、接口、记录。

    22. continue和break语句

    23. 程序终止

      exit:退出当前正在执行的程序块,不会退出整个程序,除非将其用在了主程序块(.dpr文件中)中。

    procedure Mi;
    begin
      exit;
    end;
    
    或返回一个参数,该参数类型和函数返回类型一致
    function Mi:string
    begin
      exit('str');
    end;

      Halt:引发异常中断并通过中断直接退出整个程序。

    procedure Mi;
    begin
      Halt;
    end;

      terminate:delphi窗体程序中含有一个全局程序对象(一般是application),其中的terminate方法可在窗体程序的任何地方使程序正常中断并退出。

    procedure TForm1.Button1Click(sender:TObject);
    begin
      Application.terminate;
    end;
  • 相关阅读:
    set集合
    作业(2)
    字典
    列表功能
    字符串
    while循环
    pb加密转换成C#
    NET在64位系統使用32位oracle客户端访问数据库
    SQL Server中查找包含某个文本的存储过程
    SQLServer 错误: 15404,无法获取有关 Windows NT 组/用户
  • 原文地址:https://www.cnblogs.com/thingk/p/3747541.html
Copyright © 2011-2022 走看看