Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Gerade Zahl oder Ungerade Zahl?

   
    by himitsu, 5. Apr 2011
  uses StrUtils;
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  Label1.Caption := IfThen(Odd(StrToInt(Edit1.Text)), 'ungleich', 'gleich');
  end;
  
  Oder wie wäre es mit if Edit1.Text in then {ungerade};.
  (eine Prüfung, ob überhaupt eine gültige Zahl in Edit liegt, überlaß ich Anderen)
• Forum: Object-Pascal / Delphi-Language

  AW: Gerade Zahl oder Ungerade Zahl?

   
    by himitsu, 5. Apr 2011
  Wobei aber die AND-Version zu bezuzugen wäre (Odd verwendet diese ebenfalls intern),
  da diese kleine Bitoperation wesentlich schöner/flotter ist, als soeine "rießige" mathematische Berechnung, wie das MOD.
  
  Am Ende schlägt noch emand Frac(x / 2) <> 0. :stupid:
  
  Wobei man es auch dirkt in einen ASM-Bit-Test casten könnte (über ein SET und den IN-Operator), aber so toll isses dann nun och...