array of char to string

Question

一个字数组：
strBuf : array[0..49] of char;
值为：
('q', 'K', 'c', 'e', 'D', 's', 'S', 'k', #192, '3', '.', '1', '.', '0', 's', 'o', 'f', 't', 'w', 'a', 'r', 'e', 'A', 'Y', 'n', '0', '2', 'P', 'S', 'o', #15, '0', '6', '0', '8', #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0)转化为字符串：str := strBuf;
str := StrPas(strBuf);str = qKceDsSk?.1.0softwareAYn02PSo 0608但是通过：
     for i:=0 to 49 do
        edit3.Text := edit3.Text + CapibilityBuf[i];edit3.text = qKceDsSk3.1.0softwareAYn02PSo 0608如何使 str 的值和 edit3.text 一样

Answer 1

var 
  str: string;
begin
  SetLength(str, SizeOf(strBuf));
  Move(strBuf[0], str[1], SizeOf(strBuf));
  Edit3.Text := str;
end;