判断数据的奇偶

procedure   TForm1.Button1Click(Sender:   TObject); 
  var   tmpint:integer; 
  begin 
      tmpint:=124; 
      if   (tmpint   mod   2)=1   then 
          showmessage('奇') 
      else 
          showmessage('偶'); 
  end;

其中函数mod是取模函数

还有一个方法：直接用函数odd（）

首部     function   Odd(X:   Longint):   Boolean;     $[System 
  功能     测试参数X是否为奇数。 
  说明     X为奇数时，Odd返回值True，否则返回值False。