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
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