数组转换成字符串用什么函数？

Question

多谢！

Answer 1

字符串转换成数组用lstrcpy函数
lstrcpy(数组,pchar(字符串)); 
数组转换成字符串么……
容我再想想……

Answer 2

PChar -> string : function StrPas(const Str: PChar): string;

Answer 3

有兩個方案procedure TForm1.Button1Click(Sender: TObject);
var
  ar: array[0..1] of char;
begin
  ar[0] := 'a';
  ar[1] := 'b';
  showmessage(strpas(ar)); <<<<<<<<<第一個
end;
<<<<<<<<<<<<<<<第二個, 自己寫的,
function GetArrString(const a: array of string): string;
var
  i: integer;
begin
  for I := low(a) to high(a) do
    result := result + a[i];
end;procedure TForm1.Button2Click(Sender: TObject);
var
  ar: array[0..1] of string;
begin
  ar[0] := 'string1';
  ar[1] := '\string2';
  showmessage(getarrstring(ar));  <<<==第二方案應用
end;