AW: Elegante Lösung gesucht, 3 Boolean-Werte, nur einer darf gesetzt sein
Zitat:
|
AW: Elegante Lösung gesucht, 3 Boolean-Werte, nur einer darf gesetzt sein
Delphi-Quellcode:
und
x and True
Delphi-Quellcode:
arbeiten logisch, also ja ...... faaaaaaaaalls der Compiler das nicht "optimiert" und weg lässt. :zwinker:
x or False
|
AW: Elegante Lösung gesucht, 3 Boolean-Werte, nur einer darf gesetzt sein
Ja, ist getestet und hat bei mir funktioniert.
Habe bewusst mit Werten ungleich 1 für die Variablen getestet. |
AW: Elegante Lösung gesucht, 3 Boolean-Werte, nur einer darf gesetzt sein
Zitat:
Delphi-Quellcode:
oder
function CountChecked(AValues: Array of Boolean): Integer;
var i: Integer; begin Result := 0; for I := Low(AValues) to High(AValues) do if AValues[i] then inc(Result); end;
Delphi-Quellcode:
function CountChecked(AValues: Array of Boolean): Integer;
var i: Integer; begin Result := 0; for I := Low(AValues) to High(AValues) do Inc(Result, Ord(AValues[i] <> false)); end; Aufruf:
Delphi-Quellcode:
So kann man beliebig viele Parameter übergeben und hat die Möglichkeit zu entscheiden
if CountChecked([True, False, Boolean(3), Boolean(0), Boolean(99), Boolean(-1)]) = 1 then
... wie viele true sein müssen. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:42 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz