![]() |
AW: Gerade Zahl oder Ungerade Zahl?
Zitat:
Du musst doch sogar einen Kommentar zu dem Code schreiben, damit man weiss, was er machen soll, und das bei 5 Zeichen. Versteck deine Bittüdelei wenigstens in einer Funktion. Aber nenn die bloß nicht AND_1 :-D |
AW: Gerade Zahl oder Ungerade Zahl?
Zitat:
|
AW: Gerade Zahl oder Ungerade Zahl?
Delphi-Quellcode:
Oder wie wäre es mit
uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := IfThen(Odd(StrToInt(Edit1.Text)), 'ungleich', 'gleich'); end;
Delphi-Quellcode:
.
if Edit1.Text[Length(Edit1.Text)] in ['1', '3', '5', '7', '9'] then {ungerade};
(eine Prüfung, ob überhaupt eine gültige Zahl in Edit liegt, überlaß ich Anderen) |
AW: Gerade Zahl oder Ungerade Zahl?
Zitat:
wobei es ja eine allgemein gültige form sein soll für den integer brecih. ich meien gut. man kann so auch den gesamten bereich angeben ... xD |
AW: Gerade Zahl oder Ungerade Zahl?
Zitat:
Also ich find die Version mit der logischen Verknüpfung einfach am optimalsten und auch sehr leserlich. Man muss ja nur kurz überlegen und schon weiß man, was geschieht. Außerdem ist es in diesem Fall ja nur ein Einzeiler, daher würde schon die richtige Bennenung der Funktion den Code leserlich machen! :P |
AW: Gerade Zahl oder Ungerade Zahl?
Delphi-Quellcode:
Auf begin end können wir wohl doch nicht verzichten.
function Ungerade(const ein:integer):boolean;
begin result:=boolean(ein and 1); end; Gruß K-H |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:20 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz