Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Zahl gerade oder ungerade?

    Delphi
    by Nothine, 14. Jan 2005
  @sakura: okok is ja gut ich geb mich geschlagen, solang man's nich direkt selber in assembler macht bleibt der overhead, schande auf mein haupt :duck: :mrgreen:
• Forum: Object-Pascal / Delphi-Language

  Re: Zahl gerade oder ungerade?

    Delphi
    by Nothine, 14. Jan 2005
  nich unbedingt, als funktion ist Odd nix anderes als
  function Odd(X: Longint): Boolean;
  asm
  AND EAX,$01 // AND AL,$01 würde sogar schon reichen
  end;
  und bei z.B. if Odd(Variable) then halt
  ...
  TEST {Register or Memory},$01
  J{bedingung} //oder SET{bedingung}, je nach verwendung
  also ich glaub das kann man auch noch selber so schnell nachbauen wie der compiler :roll:
• Forum: Object-Pascal / Delphi-Language

  Re: Zahl gerade oder ungerade?

    Delphi
    by Nothine, 14. Jan 2005
  und wenn man sich den binären aufbau der zahlen anschaut kann man sich das mod auch sparen und etwas in der richtung schreiben:
  function Gerade(const I: Integer): Boolean;
  begin
  Result := I and 1 = 0;
  end;
  
  edit: und am rande bemerkt, odd gibt zurück ob die zahl UNgerade ist, ich glaub das war nich ganz die frage :roll: :mrgreen: