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; ?
? ?
? 嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻 ?
? 嘻嘻嘻謝謝關注嘻嘻嘻嘻 ?

總結

以上是生活随笔為你收集整理的Delphi中预想不到的代码楼主zswang（伴水清清)(专家门诊清洁工）2002-05-16 14:20:38 在 Delphi / VCL组件开发及应用 提问的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。