数据类型转换

Question

如何将string类型的值转换为array of [] char 类型的值（不用考虑数据的长度）？

Answer 1

var
  s: string;
begin
  s:= 'abcdefg';
  MessageBox(0, pchar(s), ....

Answer 2

var 
ary:array of char;
str:String;
begin
  str := 'xxx...';
  setLength( ary, length(str)+1);
  strPCopy(PChar(ary),str);
end;

Answer 3

to  xuhx(一觉亮天) 
 
如果是
var 
ary:array of [0...15]char;
str:String;呢？

Answer 4

如果是
var 
ary:array of [0...15]char;
str:String;呢？
楼主，要把字符串转为指针来读取一个个字符才能存入字符数据的！

Answer 5

var
ary:array[1..15] of char;
str:String;
begin
  str := 'xxx...';
  strPCopy(PChar(@ary),str);
  showmessage(strpas(Pchar(@ary)));
end;