procedure Add(var Result: string; P: PChar; Count: Integer);var Len: Integer;begin Len := Length(Result); SetLength(Result, Len + Count); Move(P^, Result[Len], Count);end;
字符串合并
原文：http://my.oschina.net/u/582827/blog/364459
