如何把字符串的内容赋值给一个静态数组？？迷惑。求好方法。(50分)

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-12

• #1

var
a:array[0..100] of ansichar;
s:string;

begin
s:='yuanpeng';
a:=copy(s,1,5);//编译不通过。怎么办？ 难道一定要循环赋值吗？
end;

 

E

e_ceo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-12

• #2

1.好像应该是:a[]:=copy(s,1,5);//
2.尽量不用copy函数

 

A

Adnil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-12

• #3

procedure TForm1.Button1Click(Sender: TObject);
var
a:array[0..100] of ansichar;
s:string;
begin
s:='yuanpeng';
strpcopy(a, s);
showmessage(a);
end;

 

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-12

• #4

谢了，我真是晕了。