Delphi中预想不到的代码楼主zswang（伴水清清)(专家门诊清洁工）2002-05-16 14:20:38 在 Delphi / VCL组件开发及应用 提问

Delphi中预想不到的代码

楼主zswang（伴水清清)(专家门诊清洁工）2002-05-16 14:20:38 在 Delphi / VCL组件开发及应用 提问
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   常量表达式的下标  
  Catpion   :=   '你'[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   '看一看'}  
  end;  
   
  嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻  
  嘻嘻嘻谢谢关注嘻嘻嘻嘻