怎么将array of UCHAR 转换成string

Question

我定义一个结构： 
type
  transmi = record
    mi: array[0..10000 - 1] of UCHAR;  //*密文
  end;
并把它传给加密函数后获得加密后的密文，我想定义一个string 参数：mi_str 要怎么样才能将结算赋值给这个参数？

Answer 1

var
  Str: String;SetLength(Str, length(transmi.mi));
move(transmi.mi[0], str[1], length(transmi.mi));

Answer 2

可以直接作string类型参数传递给过程的：procedure Test(s: string);
begin
  .....
end;var
  m: transmi;
begin
  Test(PChar(@m.mi));
或者：
  Test(PChar(@m));
end;