delphi中預想不到的代碼【轉帖】

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;

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章