string 和 array of char 如何转换

Question

1 如何将string类型的数据内容copy到array of char型的变量中去？
2 如何把array of char型变量的内容赋值给string型的变量?

Answer 1

今天也想过这问题;我是从STRING中逐个取字符的.大概写法如下;:):):)VAR 
C:CHAR;
STR:STRING;
BEGIN
  STR := 'ABCDE';
  C := STR[1];END;

Answer 2

1.
var ch: array[1..5] of Char;
    Str: string[5];
begin
  for i := 1 to 5 do
    ch[i] := Str[i];
end;2. 
var ch: array[1..5] of Char;
    Str: string[5];
begin
  for i := 1 to 5 do
    Str[i] := ch[i];
end;

Answer 3

string直接就可以作为字符数组来使用
而字符数组也可以直接强制转换为string类型

Answer 4

var
 str:string;
 chars:array[0..20] of char;
begin
 str:='this is a string';
 copymemory(@chars,pchar(str),length(str));
 showmessage(chars);
 chars:='this is a chars';
 str:=chars;
 showmessage(str);
end;

Answer 5

强制转换一下就可以用
procedure TForm1.Button1Click(Sender: TObject);
var
    s:string;
    c:array of char;
begin
    setlength(c,10);
    copymemory(@c[0],pchar('hahahaha'),8);
    
    s:=string(@c[0]);/////////s指向c串的首地址
    Label1.Caption:=s;
end;

Answer 6

PChar -> string : function StrPas(const Str: PChar): string;
String-> Pchar: lstrcpy(数组,pchar(字符串));