var
i: Integer;
b: Boolean;
begin
i := 11;
b := Odd(i); {是奇数返回真}
ShowMessage(BoolToStr(b)); {True}
i := 12;
b := Odd(i);
ShowMessage(BoolToStr(b)); {False}
end;
i: Integer;
b: Boolean;
begin
i := 11;
b := Odd(i); {是奇数返回真}
ShowMessage(BoolToStr(b)); {True}
i := 12;
b := Odd(i);
ShowMessage(BoolToStr(b)); {False}
end;