急！急！急！能把一个string类型变量的值传给char类型的数组？

Question

怎样能把一个string类型变量的值传给char类型的数组？程序能做到吗？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  L: Integer;
  Str: string;
  ChArr: array of Char;
begin
  Str := 'StringToCharArray';
  L := Length(Str);
  SetLength(ChArr, L);
  for i := 1 to L do
    ChArr[i -1] := Str[i];
end;

Answer 2

用类型转换PChar(yourstring)，就把delphi的字符串类型转换成C/C++中的以NULL结尾的字符数组了！

Answer 3

procedure SetCharArray;
var
  vCharArr : Array of Char;
  vStr : String;
  vIndex : Integer;
begin
  vStr := Edit1.Text;
  SetLength(vCharArr,Length(vStr));
  for vIndex := Low(vCharArr) to High(vCharArr) do
  begin
    vCharArr[vIndex] := vStr[vIndex + 1];
  end;
end;
其实，String本身就是一个字符数组～

Answer 4

var
dest:array of char;
begin
setlength(dest,length(edit1.text)+1);
strcopy(dest,pchar(edit1.text));
end;