Delphi中预想不到的代码II

{   No.1   Delphi中的Include文件   }  
  begin  
      ShowMessage({$I   File1.txt};   //有错吗？  
      ShowMessage(UpperCase({$I   File1.txt});  
  end;  
  //新建一个文本文件“File1.txt”、内容填写为:“'Hello   Word')”看看  
   
  {   No.2   可爱的强制转换   }  
  var   B:   Byte  
  begin  
      Char(B)   :=   'A';   //我们通常写   B   :=   Byte('A');  
  end;  
   
  {   No.3   常量表达式的下标   }  
  Caption   :=   '你'[1]   +   '好'[2];   //是什么？  
   
  {   No.4   脱字号表达的字符   }  
  Caption   :=   ^:^3^7^!^.^';   //这句可以没有写错  
  //参考:http://www.csdn.net/Expert/TopicView1.asp?id=658958  
   
  {   No.5   非整数类型作下标   }  
  var   A:   array[Char]   of   Byte;   //估计很多人都知道  
   
  {   No.6   Inc()不只处理整数加一   }  
  var   C:   Char;  
  begin  
    C   :=   'A';  
    Inc(C);   //没错吧  
  end;  
   
  {   No.7   "X[:X[:X]]"格式   }  
  var   S:   string;  
  begin  
      Str(123456.7890:0:2,   S);   //直接学Delphi的人大多数不会知道  
      Caption   :=   S;  
  end;  
   
  {   No.8   系统提示、可以好好利用   }  
  begin  
  {$MESSAGE   HINT   '看一看'}   //Delphi6适用  
  end;  
   
  {   No.9   with多开几个域   }  
  with   Memo1,   DBEdit1,   Edit1   do   begin  
      ShowMessage(Text);  
      ShowMessage(Lines.Text);  
      ShowMessage(Field.AsString);  
  end;  
   
  {   No.10   Concat连结字符串函数   }  
  const  
      cSQLText   =   Concat(  
  'SELECT   *'#13#10,  
  'FROM   Table1'#13#10,  
  'WHERE   RecId   >   100'#13#10);  
   
  {   No.11   C里的十六进制   }  
  var   I:   Integer;  
  begin  
      I   :=   StrToInt('0xA3E');   //   没错，是C里面的0xA3E，而不是Dephi中的$A3E  
  end;  
   
  //-----------------------------------------------------------------------  
  //新  
   
  {   No.12   absoulte子句   }  
  function   f:   Char;  
  var  
      B:   Byte   absoulte   Result;  
  begin  
      B   :=   97;  
  end;  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      vButton:   TButton   absoulte   Sender;  
      vForm:   TForm   absoulte   Self;  
  begin  
      ShowMessage(vButton.Caption);  
      ShowNessage(vForm.Caption);  
  end;  
   
  {   No.13   “(.”、“.)”符号   }  
  //“(.”相当于“[”、“.)”相当于“]”  
  //不过是我们已习惯“(*”、“*)”，没有习惯“(.”、“.)”  
  var  
      I:   Integer;  
      A:   array(.0..100.)   of   Integer;  
  begin  
      for   I   :=   Low(A)   to   High(A)   do   A(.I.)   :=   I;  
  end;  
   
  另外有一个函数我不知道怎么使用   System.TypeOf()   你知道吗？