Delphi预想不到的代码

Question

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;http://www.delphifans.com/infoView/Article_37.html

Answer 1

广告：
请人来帮我解决一下这个问题，在线等了一天多了。（不是病毒，CSDN上的贴子）
http://community.csdn.net/Expert/topic/5239/5239077.xml?temp=.2326624

Answer 2

这是我4年前写的，鄙视转贴漏掉作者(*//
标题:Delphi中预想不到的代码
整理:Zswang,
连接:http://www.csdn.net/Expert/TopicView1.asp?id=727243
日期:2002-06-22
支持:wjhu111#21cn.com
//*)
{ 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]"格式 }
var S: string;
begin
  Str(123456.7890:0:2, S); //直接学Delphi的人大多数不会知道
  Caption := S;
end;
{ No.8 系统提示、可以好好利用 }
begin
  {$MESSAGE HINT '看一看'}
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;

Answer 3

//还有两条补上
{ 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;

Answer 4

{ No.1 Delphi中的Include文件 }
begin
  ShowMessage({$I File1.txt}; //有错吗？
  ShowMessage(UpperCase({$I File1.txt});
end;会出现：
[错误] Unit1.pas(29): Not enough actual parameters
怎么解决啊