国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Delphi > 正文

Delphi中預想不到的代碼

2019-11-18 18:34:00
字體：大 中 小
來源：轉載
供稿：網友
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;

上一篇：NeHe的opengl教程delphi版(1)----基本框架

下一篇：利用Delphi編寫Socket通信程序

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板： 镇平县| 甘南县| 遂昌县| 叶城县| 南陵县| 平乐县| 宣汉县| 林甸县| 禹州市| 平和县| 庆元县| 华宁县| 松江区| 砀山县| 新巴尔虎右旗| 甘洛县| 开封市| 日照市| 子长县| 鹤岗市| 尚义县| 乃东县| 日喀则市| 会理县| 宁德市| 汾西县| 怀来县| 大厂| 曲松县| 平阴县| 辽源市| 彰化市| 呈贡县| 内乡县| 华池县| 兴海县| 布拖县| 桦南县| 宝坻区| 凌云县| 满洲里市|