DEL7

1.注释：
 //  单行注释；
 {}  块的注释；
 (* *) 块的注释。
2.常量声明
 常量类型设置在const后；
 e.g：const
  PI=3.1415;
  MyName = 'david';
3.赋值语句
 ':='  赋值语句；
***with...do***
 复合语句，若用于多个对象，只运行一次，最后一个对象。
 e.g: with Edit1,Edit2,Edit3 do begin  //Edit3
  Text := 'David';
  Color := clYellow;
      end;

4.过程(proc)
 Procedure
 Var
    //Local的变量声明；
 Begin
   ...
 End;
5.过程与函数调用
 函数的功能与过程类似，不同在于过程没有返回值，函数必定会有返回值。

 e.g：函数  Str := Copy(GetMyName,1,5);
 若舍弃函数的返回值，过程和函数的调用方法是一样的
 e.g:    GetMyAge;//调用一个有整数返回值的函数，但舍弃函数的返回值
  DoSomeJob;//调用一个指定名称的过程
6.过程的定义（TForm对象的过程定义）
 type
   TForm1 = class(TForm)
   procedure Button1Click(Sender: TObject);
 private
 {private declarations}
 public
 {public declarations}
 procedure MyCompare1(First,Second: Integer);//此过程是TForm1对象的一部分，过程标头必须放在类型定义中。
 end;
 ...
 procedure TForm1.MyCompare1(First,Second: Integer);//过程的主体必须加上TForm1的限定词。
 begin
   if First > Second then Showmessage('1')
   else Showmessage(2);
 end;
  Unit1单元文件创建过程
 var
   Form1: TForm;
   procedure MyCompare2(First,Second: Integer);
 ......

  定义过程后，TButton对象的onClick 事件处理过程调用 已定义的过程
 procedure TForm1.Button1Click(Sender:TObject);
 begin
   MyCompare1(1,2); //调用1
   MyCompare2(1,2); //调用2
 end;

*******两种过程的定义：程序简单时，TForm1的定义方式；
         工程大，有很多用户自定义的过程或函数，可集中或分类于一个或多个成语单元文件中，利于管理；
  通过其他的程序单元调用MyCompare1、MyCompare2过程时，调用方法不同，前者必须加上Form1对象的名称。
 procedure TForm2.Button1Click(Sender:TObject);
 begin
   Form1.MyCompare1(1,2);
   MyCompare2(1,2);
 end;