Question

用delphi7 编写一个程序。任一输入一个整数，判断整数的奇偶性

Answer 1

1、使用mod判断余数，如果为1则为奇数，否则为偶数

2、代码示例如下：

procedure TForm1.btn1Click(Sender: TObject);
var
  nb : Integer;
begin
  nb := StrToInt(edt1.Text);
  if (nb mod 2 = 1) then
  begin
    ShowMessage('是奇数!');
  end
  else
  begin
    ShowMessage('是偶数!');
  end;    
end;

3、效果如下：

Answer 2

简单写点吧

procedure TForm1.Button1Click(Sender: TObject);

var

  a:integer;

begin

  if TryStrToInt(Edit1.Text, a) then

  begin

    if a mod 2 >0 then

      Label1.Caption := '这是个奇数'

    else

      Label1.Caption := '这是个偶数';

  end

  else

    ShowMessage('请输入整数，不要输入字母、标点、小数... ！');

end;

追问

TryStrToInt 什么意思啊请指教

追答

尝试string转为int