如何将string 转为 动态数组 的char? 100分,谢谢!!

Question

rt

Answer 1

var
s:string;
a:array of char;
begin
  s:='fdasfasdf';
  setlength(a,20);
  copymemory(a,pchar(s),length(s));
  edit1.Text:=strpas(pchar(@a[0]));
  setlength(a,0);
  a:=nil;
end;

Answer 2

var
s:string;
a:array of char;
begin
  s:='fdasfasdf';
  setlength(a,20);
  copymemory(a,pchar(s),length(s));
  edit1.Text:=strpas(pchar(@a[0]));
  setlength(a,0);
  a:=nil;
end;

Answer 3

var
  str : string;
  a, b, c, d, e : char;
begin
  str := 'abcde';
  a := str[1]; //'a'
  b := str[1]; //'b'
  c := str[1];
  d := str[1];
  e := str[1];
end;

Answer 4

var
  str : string;
  a, b, c, d, e : char;
begin
  str := 'abcde';
  a := str[1]; //'a'
  b := str[2]; //'b'
  c := str[3];
  d := str[4];
  e := str[5];
end;

Answer 5

var
  s:string;
  a:array of char;
  i:integer;
begin
  s:='abcdefg';
  setlength(a,30);
  for i:=0 to 6 do
    a[i]:=string[i];
  setlength(a,0);
  a:=nil;
end;

Answer 6

var
  s: string;
  a: array of Char;
  I: integer;
begin
  s := 'dksafjlasfjlasfjal';
  SetLength(a, Length(s));
  for I := 1 to Length(s) do
    a[I]:= s[I];
end;

Answer 7

对呀，只要将长度设置好了，直接赋值就行了SetLength就可以了

Answer 8

var
  s: string;
  a: array of Char;
  I: integer;
begin
  s := 'dksafjlasfjlasfjal';
  SetLength(a, Length(s));
  for I := 1 to Length(s) do
    a[I]:= s[I];
end;