如何将字符串变量赋值给字符变量

Question

如题，请各位大哥帮忙解决一下 

Answer 1

var
s: string;
s1: array of Char;
i: integer;
 Begin
  setlength(s1,length(s)-1);
  for i:=0 to length(s) do
    s1[i]:=copy(length(s),***);
 end;

Answer 2

上面写的不好，，，，
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  s1: array of string;
  s: string;
begin
  s:='abc';
  setlength(s1,length(s));
  for i:=0 to length(s)-1 do
    begin
      s1[i]:=copy(s,i+1,1);
      Showmessage(s1[i]);
    End;
end;

Answer 3

var
  s : string;
  a : array [0..1023] of char;
begin
  s := '12345';
  FillChar(a,Length(a),#0);  Move(s[1],a[0],Length(s));  FillChar(a,Length(a),#0);  StrPCopy(@a,s);end;

Answer 4

对于动态数组数不是只有一个个取才行啊？那个strcopy之类的好像不能用啊？为什么呢？请各位指点一下！

Answer 5

对于动态数组数不是只有一个个取才行啊？那个strcopy之类的好像不能用啊？为什么呢？请各位指点一下！
-----------------------------------------------------//没有理解你说的什么意思
procedure TForm1.Button3Click(Sender: TObject);
var
  vBuffer: array[0..255] of Char;
begin
  StrPCopy(vBuffer, PChar(Edit1.Text));
  Edit2.Text := vBuffer;
end;

Answer 6

我是说动态数组是不是不能用这个strcopy呢？
我这样写就是提示出错啊？是什么原因呢 ？
  var
          s1:string   ;
          a1:   array  of   char;
  begin          s1:=edit1.text;
          setlength(s1,Length(s1))   ;   
           StrPCopy(@a1,s1);  
          showmessage(a1[0]); 

Answer 7

var
  s : string;
  a : array of char;
begin
  s := '12345';  SetLength(a,1024);
  FillChar(a[0],Length(a),#0);  Move(s[1],a[0],Length(s));  FillChar(a[0],Length(a),#0);  StrPCopy(@a[0],s);
  ShowMessage(StrPas(@a[0]));
end;

Answer 8

我是说动态数组是不是不能用这个strcopy呢？ 
我这样写就是提示出错啊？是什么原因呢   ？ 
var 
   s1:string; 
   a1: array of char; 
    begin 
       s1:=edit1.text; 
       setlength(s1,Length(s1));       
       StrPCopy(@a1,s1);     
       showmessage(a1[0]); 
-------------------------------------------
你可以看一下9楼 上的代码 ，你说能用吗？
你仿照别人的代码，也不能那样搞，人家的代码已经对数组的大小，开始，都做了规定，才OK，你的什么都没有，肯定会错，