string与char 的转换？(10分)

C

caiyiming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-11

• #1

button1.click:

var s:string;
s1:array [1..30] of char;
begin
s :='asfdsf';
s1[1] :=s;
end;
编译不过，why?

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-11

• #2

procedure TForm1.Button2Click(Sender: TObject);
var s:string;
s1:array [1..30] of char;
begin
s :='asfdsf';
move(s[1],S1[1],length(s));
end;

 

R

razy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-11

• #3

直接用s[]就可以了

 

K

kk2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-11

• #4

var s:string;
s1:array [0..30] of char
// 改为从零开始，数组是从零开始的
begin
s :='asfdsf';
s1[0] :=s[0]
//char是占一个byte的大小吧，看看数据类型定义，所以只能付一个字符

end;

 

S

SCMWorker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-11

• #5

建议现看BOJECT PASCAL 的STRING类型部分，从此，你不会再出现类似的错误！

 

C

caiyiming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-11

• #6

我写错了,应为
s :='a';
s1[1] := s;

我也试了
var s,s1:string;
s:='a';
s1[1] := s[0];
也不行

 

C

caiyiming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-11

• #7

多人接受答案了。