Delphi XE(Indy10)TIdBytes转AnsiString的实现

TIdBytes 类型引用自单元 IdGlobal；

其原型定义为 

  TIdBytes = array of Byte;

转换函数如下：经过测试多次发送后在字符串尾部不会出现乱码或多余字符

function IdBytesToAnsiString(ParamBytes: TIdBytes): AnsiString;
var
  i: Integer;
  S: AnsiString;
begin
  S := '';
  for i := 0 to Length(ParamBytes) - 1 do
  begin  
    S := S + AnsiChar(ParamBytes[i]);
  end;
  Result := S;
end;