随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

procedure TForm1.Button1Click(Sender: TObject);
var
  w: Word;
  r: Byte;
begin
  w := $1234;  //10进制 4660
  {$R+}    //如果添加越界检查,程序将提示错误,不能继续执行
  r := w;  //如果没有越界检查,r 将获取 w 的低 8 位 $34
  ShowMessage(IntToStr(r));  //52
end;
posted on 2007-12-01 21:36  万一  阅读(...)  评论(...编辑  收藏