Delphi 代码优化——字符串篇

最新推荐文章于 2020-11-14 02:38:38 发布

freewizard

最新推荐文章于 2020-11-14 02:38:38 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

文章标签： delphi 优化 delete string 存储 thread

本文链接：https://blog.youkuaiyun.com/freewizard/article/details/3050

本文介绍了Delphi中字符串类型的优化方法，包括避免不必要初始化、使用SetLength预分配内存、处理线程安全问题以及避免使用特定函数以提高效率。特别强调了长字符串AnsiString的高效使用和转换为PChar的技巧。

关键词：Delphi, AnisString, Pchar
freewizard

Delphi有三种字符串类型：短字符串(String[n],n=1..255)存储区为静态分配，大小在编译时确定，这是继承于BP for Dos的类型；字符数组(PChar)主要是为了兼容各类API，在BP7中已经出现，如今在Delphi中更加应用广泛，其存储区可以用字符数组静态分配，也可用GetMem手动分配；而长字符串(AnsiString)是Delphi独有的，其存储区在运行时动态分配，最灵活也最易被滥用。

不重复初始化
Delphi默认字符串类型AnsiString会自动初始化为空。如下代码：

var s:string；
begin
s:='';
……
end;
s:='';就属多此一举。但是值得注意的是这对函数返回值Result无效。而一般说来，用var实参传递比返回字符串值要更快一些。

使用SetLength预分配长字符串（AnsiString）
动态分配内存是AnsiString的一大长项，但容易弄巧成拙，一个典型的例子如下：
s2:=' ';
for i:=2 to length(s1) do s2:=s2+s1[i];
且不说可用Delete取代之，主要问题在于上例的循环中s2的内存区域被不停地重复分配，相当费时。一个简单有效的办法如下：
SetLength(s2,length(s1)-1);
for i:=2 to length(s1) do s2[i-1]:=s1[i];
这样s2内存只会重新分配一次。

字符串与动态数组的线程安全(Thread Safety)
在Delphi 5以前动态数组与长字符串的操作这些非线程安全调用是由引用计数来处理其临界问题的，而自Delphi5起就改为直接在一些临界指令前加lock指令前缀来避免这个问题。不幸的是这一修改的代价相当昂贵，因为在PentiumⅡ处理器中lock指令相当费时，大概要耗费额外的28个指令周期来完成这一操作，因而整体效率至少下降一半。
解决这个问题的办法只有一个，那就是修改Delphi RTL核心代码。在备份原文件后，将source