Delphi中预想不到的代码
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;
Tags:
作者:佚名评论内容只代表网友观点,与本站立场无关!
评论摘要(共 0 条,得分 0 分,平均 0 分)
查看完整评论