Delphi XE(Indy10)TIdBytes转AnsiString的实现

TIdBytes 类型引用自单元 IdGlobal；

其原型定义为 

  TIdBytes = array of Byte;

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

[delphi] view plain copy print ?

1. function IdBytesToAnsiString(ParamBytes: TIdBytes): AnsiString;  
2. var  
3.   i: Integer;  
4.   S: AnsiString;  
5. begin  
6.   S := '';  
7.   for i := 0 to Length(ParamBytes) - 1 do  
8.   begin    
9.     S := S + AnsiChar(ParamBytes[i]);  
10.   end;  
11.   Result := S;  
12. end;