字符数组与字符串的转换

Question

请问字符数组与字符串的转换应如何实现
将字符串转换成字符数组，
将字符数组转换成字符串，
比如 a:Array [1..20] of char
     b:String

Answer 1

var
  a:array[1..20] of Char;
  b:String;
begin
  SetLength(b,SizeOf(a));
  CopyMemory(@b[1],@buff[1],SizeOf(a));
end;

Answer 2

上头写差了
var
  a:array[1..20] of Char;
  b:String;
begin
  SetLength(b,SizeOf(a));
  CopyMemory(@b[1],@a[1],SizeOf(a));
end;

Answer 3

var
  a:array[1..20] of Char;
  b:String;
begin
  SetLength(b,SizeOf(a));
  CopyMemory(@a[1],@b[1],SizeOf(a));
end;

Answer 4

b:=a;反之StrPCopy(@a,b);
或
StrCopy(@a,PChar(b));

Answer 5

字符串本来就可以当作字符数组的
str: string;你可以用str[1],str[2];另外将字符数组转化为string
用strpas也行

Answer 6

buf: array[0..10] of char;buf[0] := 'a';
buf[1] := 'b';
showmessage(strpas(buf));

Answer 7

将字符串转换成字符数组，
StrPCopy(@a[1],b);
将字符数组转换成字符串，
b := a;