怎样将一个字符串赋值给char数组？(50分)

P

panwen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-27

• #1

定义了一个字符串和一个char数组：
a : string;
b : array[0..20] of char;
a := 'hello';

把a赋值给b，有简单点的方法吗？

 

S

sbzldlb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-27

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
a : string;
b : array[0..20] of char;

begin
a := 'hello';
strcopy(b,pchar(a+#0));

showmessage(b);
end;

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-27

• #3

strcopy(b,Pchar(a));

 

P

panwen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-27

• #4

谢谢！