如何拷贝字符串数组到string

Question

var
  x : array[1..20] of char;
  s : string;
begin
  strcopy(@x,'aaaaaaaaa');
  请贴代码，如何把x传给s
end;

Answer 1

楼上的就对；若是x: array[0..20] of char;用s := StrPas(x)可能会更好

Answer 2

var
  x : array[1..20] of char;
  s : string;
begin
  strcopy(@x,'aaaaaaaaa');
  s:=String(x);
  showmessage(s);
end;

Answer 3

//这样就行了。
var
  x : array[1..20] of char;
  s : string;
begin
  strcopy(@x,'baaaaaaaaab');
  s:=x;
  ShowMessage(s);//  请贴代码，如何把x传给s
end;