Delphi中预想不到的代码学习

发布时间:2016-12-6 8:54:22 编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"Delphi中预想不到的代码学习",主要涉及到Delphi中预想不到的代码学习方面的内容,对于Delphi中预想不到的代码学习感兴趣的同学可以参考一下。

   看见别人写的这样一段代码,觉得很有意思,拿来测试一下。 {   No.1   Delphi中的Include文件   }     begin         ShowMessage({$I   File1.txt};   //有错吗?         ShowMessage(UpperCase({$I   File1.txt});     end;     //新建一个文本文件“File1.txt”、内容填写为:“'Hello   Word')”看看 下面是我测试的内容 在Delphi7下测试代码://2007.12.18 File1.txt中写入的内容是:1234 procedure TForm1.Button1Click(Sender: TObject); begin       ShowMessage(InttoStr({$I 'c:/File1.txt'}));   //有错吗?       ShowMessage(UpperCase(IntToStr({$I 'c:/File1.txt'}))); end; 这样是能够显示出来File1.txt文件中的内容的,因为文件中的内容是1234,delphi编译的时候把文件内容做为数字了,所以要加IntToStr。 procedure TForm1.Button1Click(Sender: TObject); begin       ShowMessage({$I 'c:/File1.txt'});   //有错吗?       ShowMessage(UpperCase ({$I 'c:/File1.txt'})); end; 代码改成上面这样,继续测试。 File1.txt中写入的内容是:hello world!!!,重新Build程序,报错,如果把文件内容改为’hello world!!!’,在字符串的两边加上单引号,呵呵,Build通过,delphi引入文件内容做为字符串,正常显示。 如果将File1.txt中的内容改为1234hello world!!!,Build程序,报错,将代码改为:       ShowMessage(IntToStr({$I 'c:/File1.txt'}));   //有错吗?       ShowMessage(UpperCase (IntToStr({$I 'c:/File1.txt'}))); 还是Build报错,看来数据类型必须统一。 只研究了这么多,有些东西还是不太明白,谁要是有研究成果了,共享一下。  

上一篇:协同推荐系统简介
下一篇:[转帖]软件学习之路:不走弯路,就是捷径

相关文章

相关评论