如何把array [] of char 类型的字符组转换为string类型字符串?

Question

我要把一个字符数组里的内容作为一个整体存入数据库，如何把array [] of char 类型的字符组转换为string类型字符串?请写出实例 多谢

Answer 1

procedure TForm1.Button6Click(Sender: TObject);
var
  MyChar: array[0..9] of Char;
  S: string;
begin
  MyChar := '1234' + #0;
  S := MyChar;
  ShowMessage(S);
end;procedure TForm1.Button7Click(Sender: TObject);
var
  MyChar: array[1..10] of Char;
  S: string;
  I: Integer;
begin
  SetLength(S, 10);
  for I := 0 to 9 do
    MyChar[I + 1] := IntToStr(I)[1];
  CopyMemory(@S[1], @MyChar[1], 10);
  ShowMessage(S);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var a:array[0..12]of char;d:string;
begin
a:='dddddddddsaaa';
d:=strpas(a);
form1.Caption:=d;
end;