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()   你知道吗？