回 帖 发 新 帖 刷新版面

主题:检查不出错误,谁来帮帮忙~~~~~~~~~

var
hello1:array[0..5] of char;
hello2:array[0..5] of char;
begin
hello1[0]:='n';
hello1[1]:='i';
hello1[2]:='h';
hello1[3]:='a';
hello1[4]:='o';
hello1[5]:=chr(0);
hello2:=hello1;
showmessage(hello2);
end;

回复列表 (共2个回复)

沙发

你是否想取得并显示"nihao"这个值.
这样能否?procedure TForm1.Button1Click(Sender: TObject);
var
hello1:array[0..5] of char;
hello2:string;
begin
hello1[0]:='n';
hello1[1]:='i';
hello1[2]:='h';
hello1[3]:='a';
hello1[4]:='o';
hello1[5]:=chr(0);
hello2:=hello1;
showmessage(hello2);
end;

板凳

showmessage(hello2);这句有问题,hello2是数组不能这样显示。

我来回复

您尚未登录,请登录后再回复。点此登录或注册