如何把string转换成array of char字符串？

Question

type
  TArrayChar = array of Char;function ZsStringToArrayChar(mStr: string): TArrayChar;
var
  I, L: Integer;
begin
  L := Length(mStr);
  SetLength(Result, L);
  for I := 1 to L do Result[Pred(I)] := mStr[I];
end; { ZsStringToArrayChar }//动态数组要释放用 vArray := nil;
//Look:例子
//...
var
  vArray: TArrayChar;
//...
  vArray := ZsStringToArrayChar('<你的字符串变量>');
//...
  vArray := nil;