delphi7升级到delphi 2010delphi edelphi e2总结 分析和总结.docx

Delphi7 升级到 Delphi 2010、Delphi XE、Delphi XE2 总结 . Delphi7 升级到 Delphi 2010、Delphi XE、Delphi XE2 总结 . Delphi7 升级到 Delphi 2010、Delphi XE、Delphi XE2 总结这两天把一个使用 Delphi2007 成功升级到了 Delphi2010。升级途中很艰辛，总结了 以下经验与大家分享。另外，D7 使用的第三方组件，由于官方没有发布 For Delphi2010 的更新，修改的第三 方组件列表见文章尾部。 1，PChar 因为 Delphi 不支持无类型指针的算术运算，很多程序员使用 PChar 来代替 Pointer，即使指针指向目标并不是PAnsiChar。 考虑如下代码： var P:PChar; Buffer:Pointer; begin GetMem(Buffer,255); P:=Buffer; p^:=#1; Inc(P); p^:=#2; FreeMem(Buffer,255); end; 在 2010 中 PChar 已经不再表示 PAnsiChar 而是表示PWideChar，如果依然这样写，运行时很可能会得到一个内 存访问错误。因为每 次 Inc(P)，实际上指针向前移动了 2 字节，因为 SizeOf(WideChar)=2，Inc(P)相当于P:=P+SizeOf(WideChar)。 解决方法是把 PChar 替换成 PAnsiChar2，Move FillChar CopyMemory 这些函数依赖的是字节长度，往往我们直接使用Length(Str)来获取，这是行不通的。 考虑如下代码： var P1,P2:String; begin P1:=test; SetLength(P2,Length(P1)); Move(P1[1],P2[1],Length(P1));end 在 2010 中 String 默认映射到 UnicodeString，单个字符是 2 字节，所以上文中 P1 实际占用了 8 字节内存，而传给Move 函数的长 度只有 4 字节，最终结果是 P2=te。 解决办法 1： 修改 String 为 AnsiString，该方案虽然可行，但你的程序就享受不到 Unicode 待遇了。 解决办法 2： SetLength 函数不要修改，因为他的长度参数是字符长度， 而不是字节长度。 Move 函数的最后一个参数 Length(P1) 修改成Length(P1)*SizeOf(Char)。 注意：不要偷懒使用万一老师说的 ByteLength 函数，该函 数并没有 For AnsiString 的重载，编译器会 把参数隐式转 化为 UnicodeString 然后，ByteLength 函数计算UnicodeString 的长度。例如：一旦你不小心传入了一个AnsiString 类型长度为 4 的字符串，函数会返回 8，而不是你期望的长度 4。3，Key in [a..z,B,C] 这类代码最好替换成 CharInSet(Key,[a..z,B,C]) 不然会当作 AnsiChar 处理。4，WideString 代码中的所有 WideString 都考虑替换成 String，现在WideString 只是为了与 COM 兼容而存在，且没有引用计数，性能低下。5，Tnt 控件 如果你的工程使用了 Tnt 控件或以前的 WideTextPos WideStringReplace 之类的东西都替换成标准的吧，不用曲线救国了。 ---------经过修改，可以在 Delphi2010 下运作的第三方组件 1，PNGDelphi 2，EmbeddedWB 3，SynEdit 的语法高亮组件 unihighlighter 4，JEDI Win32API Header 这些组件现在可以在 Delphi2010 下运作了。 6，引用 AnsiStrings 单元 如果你有必要使用 AnsiUpperCase AnsiLowerCase AnsiCompareStr 之类的函数，一定要引用 AnsiStrings 单元。 如果你不引用该单元，即便编译不报错，你实际上是用的还是 Unicode 版本的函数，会有隐式的转化。不信你打开参数自动完成，看看 IDE 提示给你的类型是什么？天啊AnsiLowerCase 参数竟然还是 String，而不是 AnsiString。看来 Delphi2010 太迫切的要抛弃 Ansi 字符串了，以至于你不引用 AnsiStrings 单元，所有 Ansixxxx 函数实际上还是Unicode 版本。7，AnsiCopy AnsiPos A