浅谈Delphi2009控件移植

最新推荐文章于 2021-07-31 15:59:42 发布

_昵称将在全站显示_

最新推荐文章于 2021-07-31 15:59:42 发布

阅读量843

点赞数

分类专栏： DELPHI 文章标签： delphi hashmap 语言 string api 编译器

本文链接：https://blog.csdn.net/delphi_csdn/article/details/4321618

版权

DELPHI 专栏收录该内容

17 篇文章

订阅专栏

当Delphi支持了Unicode，它将会变成什么样子呢？
我的看法如下：
1. 开发变得复杂了，因为要更多的考虑编码问题
2. 绝大多数控件都需要修改，以使其能适应Delphi2009
3. 多国语言的软件得到了较好的支持

第一点和第二点，相信很多人都有体会了，原本在Delphi2007上通顺利编译通过的项目，放到Delphi2009上就要进行很大的改动。特别是API的调用，MessageBoxA改成MessageBoxW之类，会让原本简单的程序变得很复杂。
我在论坛上承接移植控件的项目时，已经有很深的体会。比如说 str: array[0..15] of Char，原本这个 str 是可以直接拿来用作PChar，但是现在就必须 PChar(string(str))，或许这有一点不方便，但是这对于Delphi2009来说，完全没有办法。因为它不可能放弃Ansi。

如果想不修改编码就在Delphi2009上编译Delphi2007的项目，可以使用 {$H+} 编译预处理，这将把字符串编码设为Ansi，而不是使用默认的Unicode。
当然了，这仅仅是针对一些简单的项目可以如此处理。对于复杂的控件，如DevExpress，RemObjects等等，用这一招完全无效，还是得老老实实的修改代码。由于编译器改动太大，使得一些原本能顺利使用的语法也需要重新考虑。类似于 Boolean(ArrStr[1]) := True; 这样的代码已经不被支持。

下面来说说修改控件的问题，主要是编码问题，已有一些总结如下：
1. 使用{$H+}来避免字符串解析为Unicode
2. 使用StrPCopy函数，来对Char数组赋值，ArrStr := str; 已经不再支持了
3. 使用PChar/PWideChar来生成字符串指针。
4. 对于Length(str)要特别小心，在Unicode的情况下，一个汉字的长度和一个英文字母的长度都是1，而Ansi情况下，一个汉字长度是2。
5. 数据相关的控件最麻烦，TDataSet被大幅修改，因此从TDataSet继承来的控件，大多数override的方法也需要同步修改
6. StrPas(@ArrStr[0])这种写法不被支持，应用Str: string; StrPas(PChar(Str)); 来代替
7. 转义在先不被支持，如上面说的Boolean(ArrStr[1]) := True; 这样的代码可修改为 ArrStr[1] := IfThen(True, #1, #0);
8. PropertyEditor中的字符串必须是Ansi的，不然会导致内存泄漏（不知正式版还有没有这个问题。。）
9. ISAPI 及一些特定的API没有W的形式，它们只允许使用Ansi，因此传入参数时，必须用PAnsiChar(AnsiString(Str))进行转换

一些新语法的问题，比如说HashMap，可以按Java的写法，修改成IMap<T,T>和THashMap<T,T>
诸如此类的不再多说，泛型的使用是必然的，也是必须的，当然这对于控件的相关修改会比较大，但是能使控件更完善。
另外，由于Delphi2009支持反射，以往用RTTI获取类成员的代码，如果为了精简，可以使用反射单元的相关成员来代替。不知有没有人测试过反射和RTTI的率，个人感觉，反射比RTTI慢一些，但是反射的功能远远强于RTTI。因此，开发时要用哪个，还是按照实际情况来决定比较好。

再来谈谈第三点，它对多国语言的支持强化了，我们可以在一个软件里，用上我们能够想像到的任何一种语言，而且都可以正确的显示（虽然对于我来说，完全用不到英文以外的语言，但是还是要说一下的）。但是这种多语支持却做得并不尽人意。本地化向导可以帮助完成一部分事情，但是自己要做的事还是很多。而TSiLang是第三方，并且收费的，虽然实现多语很方便，但是我相信会去购买的人也不多吧。
Delphi完全可以在多语方面再做得更好一些，还有个小小的bug，以色列文会乱码，不过中国的用户应该永远碰不到这问题了吧。