这不自己跟自己较劲吗?Move(A,B,Len)是从地址A处拷贝Len个字节的东西到地址B处。
你的函数应该将'5678'字符串,Copy到一个整数空间中,
procedure TForm1.Button1Click(Sender: TObject);
var a : array[1..4] of char;
b : Integer;
begin
a := #0#0#0#0;
Move(a,b,4);
ShowMessage(IntTostr(b));
end;
将#0分别用'5','6','7','8'的Ascii码替换就明白了。
你的函数应该将'5678'字符串,Copy到一个整数空间中,
procedure TForm1.Button1Click(Sender: TObject);
var a : array[1..4] of char;
b : Integer;
begin
a := #0#0#0#0;
Move(a,b,4);
ShowMessage(IntTostr(b));
end;
将#0分别用'5','6','7','8'的Ascii码替换就明白了。
解决方案 »
- PopMenu无法弹出的问题,巨奇怪。
- 关于XLGrid的问题
- 能给一个能下到delphi网络编程方面书的地址吗? 当然是要免费.谢谢了先!
- 三层中,使用Recordset在层之间传输数据,但是不知道该如何更新数据?
- Delphi5访问串口设备用什么控件?
- 窗体的free,create 和getkind方法分别是什么作用?这些方法在什么事件发生时调用?谢谢
- 暂存依次搜索到的数据集d问题
- 如何在keydown事件中判断是否同时按下两个键?
- 如何用delphi编制数字转换器
- TSocketConnection + scktsrvr 问题
- 关于ReportBuilder 5的问题
- Delphi如何捕捉光标键键盘事件.
如果a:array[1..100000] of char,那不是真个程序都是#0#0.... fillchar(a,4,#0);