[Delphi]Delphi学习
摘要：
procedure TForm1.btn1Click(Sender: TObject);var tmp: Integer;begin tmp := StrToInt(edt1.Text); if (tmp mod 2 = 0) then begin MessageBox(0, PAnsiChar(IntToStr(tmp)+' 为偶数'), '提示', MB_OK) end else begin MessageBox(0, PAnsiChar(IntToStr(tmp)+' 为奇数'), '提示', MB_OK) end;end; 阅读全文
posted @ 2013-05-22 20:12 我最亲爱的说 阅读(219) 评论(0) 推荐(0) 编辑