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;本文共 222 字，大约阅读时间需要 1 分钟。
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;转载于:https://my.oschina.net/u/582827/blog/364459