一个简单的问题？谢谢

aa_33 2004-12-22 07:39:29

我在一个按钮的ONClick事件中有如下代码：
var
pc:PChar;
buf:array[0..3]of char;
begin
buf[0]:='1';
buf[1]:='1';
buf[2]:='2';
buf[3]:='3';
getmem(pc,4);
move(buf[0],pc^,4)
memo1.lines.add(pc);
end;
我的意思是在MEMO1控件中显示1234但结果总是1234？多了一个问号，哎，不知谁能指点，哪错了

...全文

151 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

btc215 2004-12-23

打赏
举报

我测试的结果：第一次按BUTTON显示：1123
第二次及以后按BUTTON显示：1123?
1123?
1123?
1123?

symk0014 2004-12-23

打赏
举报

发现一个细节只要move里的偏移量大于2 就不会出错..

「已注销」 2004-12-23

打赏
举报

var
pc:PChar;
buf:array[0..3]of char;
begin
buf[0]:='1';
buf[1]:='1';
buf[2]:='2';
buf[3]:='3';
getmem(pc,4);
move(buf[0],pc^,4);
Memo1.Lines.Add(pc);
freemem(pc,4);
end;

yuaoyang 2004-12-22

打赏
举报

aa_33 2004-12-22

打赏
举报

aa_33 2004-12-22

打赏
举报

一定有问题啊？谁知道

aa_33 2004-12-22

打赏
举报

为什么？奇怪了

hanhsh1 2004-12-22

打赏
举报

我在我电脑上测试，只有4个时会有?号，5个6个都没问题。

「已注销」 2004-12-22

打赏
举报

奇怪,没问题啊

aa_33 2004-12-22

打赏
举报

没啊，少了就不能运行了

symk0014 2004-12-22

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
var
pc:PChar;
buf:array[0..3]of char;
begin
buf[0]:='1';
buf[1]:='1';
buf[2]:='2';
buf[3]:='3';
getmem(pc,4);
move(buf[0],pc^,4);
Memo1.Lines.Add(pc);//少了分号哦~~
end;