AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Suchfunktion Ergebnis der Suchanfrage

Ergebnis der Suchanfrage


Datum des Suchindex: Heute, 22:47

Parameter dieser Suchanfrage:

Suche in Thema: Gerade Zahl oder Ungerade Zahl?
Suche alle Beiträge, die von "himitsu" geschrieben wurden
• Suchmethode: "Suche nach allen Begriffen"
• Nach Datum (firstpost) sortiert
• Zeige Treffer als Beiträge
Zeige 2 von insges. 2 Treffern
Suche benötigte 0.003s

Es liegen Ergebnisse in folgenden Bereichen vor:

  • 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...


URL zu dieser Suchanfrage:

https://www.delphipraxis.net/dp_search.php?do=usersearch&search_username=himitsu&search_exact_username=1&search_sortby=dateline&search_resulttype=post&search_matchmode=0&searchthreadid=159618
Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:02 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf