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

[fewind2100]

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

[fewind2100]

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

[wangxuelid]

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

[fewind2100]

我是说动态数组是不是不能用这个strcopy呢？
我这样写就是提示出错啊？是什么原因呢 ？
var
s1:string ;
a1: array of char;
begin

s1:=edit1.text;
setlength(s1,Length(s1)) ;
StrPCopy(@a1,s1);
showmessage(a1[0]);

[sdzeng]

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;

[sdzeng]

动态数组跟静态数组只是在语法上有点像，
本质上还是有很大区别的

[wangxuelid]

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

[fewind2100]

不好意思写错了，是将字符串变量赋值给字符数组

[wangxuelid]

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;

[wangxuelid]

上面写的不好，，，，
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;

[evileagle]

CopyMemory

[sdzeng]

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;

[wangxuelid]

111

[wangxuelid]

[code=BatchFile][/code]
111

[fewind2100]

多谢两位指教~~!终于对数组有些了解了!非常感谢!