关于char和string之间付值的问题(10分)

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #1

我定义了一个char型数组
a:array[0..20]of char;
又定义了一个string数组
b:array[0..70]of string;
然后我这样付值
b[0]:=a;
这样可以吗？
我不知道是什么问题，程序运行就会死，估计可能是这个问题：（

 

N

Nizvoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #2

代码:

var
  Ch: array[0..2] of Char;
  Str: array[0..70] of string;
begin
  Ch[0] := '1';
  Ch[1] := '2';
  Ch[2] := '3';
  Str[0] := Ch;
  ShowMessage(Str[0]);
end;

测试通过！

 

K

kidneyball

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #3

var
a: array [0..20] of char;
b: array [0..20] of string;
begin
a := 'haha';
b[0] := a;
ShowMessage(b[0]);
end;
DELPHI6下测试通过， 你程序死掉的问题不在这里。 单步跟踪一下吧

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #4

多人接受答案了。