各位大虾可以参考一下,Delphi的另类技巧?小虾就不用进来了!我不给分!(1分)

  • 主题发起人 主题发起人 takashiki
  • 开始时间 开始时间
T

takashiki

Unregistered / Unconfirmed
GUEST, unregistred user!
[我转贴的,各位大虾可以参考一下,Delphi的另类技巧]
今天发现的,感觉很好玩,就贴上来了.小弟我先扔一块砖,有玉的尽管砸过来,我挺着就是
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 常量表达式的下标 }
Caption := '你'[1] + '好'[2];
//是什么?
{ No.4 脱字号表达的字符 }
Caption := ^:^3^7^!^.^';
//这句可以没有写错
{ 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;

{ No.9 with多开几个域 }
with Memo1, DBEdit1, Edit1do
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;
 
很有意思,

//不小心,给帖上来的太多了
{ No.8 系统提示、可以好好利用 }
begin
{$MESSAGE HINT '看一看'}
end;

在Delphi7中没有任何反应。
 
to 楼上的
我用的是D7+XP,我也测试了几个,我测试的是No1,3,4,7,都正确啊,其他我再测试一下
不过谢谢楼上了,毕竟有人回我的帖子,^_^
 
2,5,6,8也通过了
不过好像没什么用,只是我觉得有些好玩而已
程云同志怎么使用的啊?Caption是窗口的标题,不会你没看到吧,那你全改为Showmessage试试
 
現在沒空啦,不過我把它收藏了。以後看看
 
接受答案了.
 
不好意思,我是把Message窗口给关了,就没有看到。
 

Similar threads

S
回复
0
查看
688
SUNSTONE的Delphi笔记
S
S
回复
0
查看
683
SUNSTONE的Delphi笔记
S
I
回复
0
查看
478
import
I
S
回复
0
查看
732
SUNSTONE的Delphi笔记
S
I
回复
0
查看
806
import
I
后退
顶部