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

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i := 0;
  ShowMessage(IntToStr(i));  //0
  i := not i;
  ShowMessage(IntToStr(i));  //-1
  i := not i;
  ShowMessage(IntToStr(i));  //0
end;

posted on 2007-12-06 18:22  万一  阅读(...)  评论(...编辑  收藏