字符串优化

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的一大长项，但容易弄巧成拙，一个典型的例子如下：

begin
s2:=" ";
for i:=2 to length(s1) do s2:=s2+s1[i];
end;

且不说可用Delete取代之，主要问题在于上例的循环中s2的内存区域被不停地重复分配，相当费时。一个简单有效的办法如下：
 

begin
 Setlength(s2，length(s1)-1);
 For i:=2 to length(s1) do s2[i-1]:=s1[i];
end;
//这样S2内存只会重新分配一次。 

三.避免使用短字符串
由于很多字符串操作会先把短字符串转换为长字符串，从而减慢了执行速度，因此还是少使用短字符串为妙。

四.避免使用copy函数
这也和滥用内存管理有关。一个典型的情形如下：
if copy(s1，23，64)=copy(s2，15，64) then ……这样导致分配了两块临时内存，因而降低了效率。应当替换为如下代码：
  i:=0;
  f:=false;
  repeat f:=s1[i+23]<>s2[i+15];
  inc(i);
  until f or (i>63);
  if not f then ……同样的，如下语句就显得相当低效：
s:=copy(s，1，length(s)-10);应改为
delete(s，length(s)-10，10);顺便提一句，在连接字符串时，s:=s1+s2;简单而有效；但在delphi2下则s:=format([%s%s]，s1，s2);可能稍快些。

五.总是使用长字符串，必要时转换为pchar
先看看AnsiString的定义：

type  AnsiString = packed record  allocsiz: longint; //动态分配大小  refcnt: longint; //引用计数  Length: longint; //实际长度  ChrArr:array[1..allocsiz-6]of char; //字节序列  end;其中astring[1]将返回astring.chrarr[1]的内容。很多人认为ansistring是天生低效的。其实这在很大程度上是由代码编写不良、内存管理乱用和缺乏支持的函数所致。如上所述，一旦被动态分配了一块内存，长字符串就成了一个线性的字节序列，并无所谓的效率问题。当然，若有更多有效的函数支持那就更好了。说到ansistring到pchar的转换，本质上有三个办法：

 1.p:=@s[1];这会引发uniquestring调用。 2.p:=pchar (s);这会先检查s是否为空，若是，则返回nil，否则即返回s[1]的地址。 3.p:=pointer(s);这不会引发任何隐含调用，因而是在确定s非空情况下的最佳选择。