delphi - 如何判断数组中的一个数是否为偶数

Question

我想看看数组中给定的数字是否为偶数

我尝试使用 mod 2 并以丰富的编辑方式显示它

   procedure TForm1.btnDisplayCriteriaClick(Sender: TObject);
   var
     Number,Check:Integer;
   begin
     redDisplay.Clear;
     if rbgCriteria.ItemIndex=2 then begin
       Number:=Numbers[ask];
       for I := 1 to ask do
         if not ODD(Number) then
            redDisplay.Lines.Add(IntToStr(Numbers[Number]));
     end;
   end;

在delphi还是个新手，所以我需要编码方面的帮助我希望它在 richedit 中显示偶数，但它却给了我随机整数

Answer 1

错误在于您迭代整数数组的方式。 Number 的分配是在循环外部完成的。

相反，将赋值移到循环内，如本例所示:

procedure TForm1.btnDisplayCriteriaClick(Sender: TObject);
var
  Number : Integer;
begin
  redDisplay.Clear;
  if rbgCriteria.ItemIndex=2 then begin
    for I := 1 to ask do begin
      Number:= Numbers[I];       
      if not Odd(Number) then
        redDisplay.Lines.Add(IntToStr(Number));  // Display even number
    end;
  end;
end;

<小时/>

测试偶数的其他方法是:

if (Number mod 2) = 0 then  // Using the modulo operator

或

if (Number and 1) = 0 then // Using a bitwise test for the least significant bit