array[1..10] auf Wert prüfen?

[hoika]

Hallo,

Delphi-Quellcode:

b:= True;
for i:= Low(w) to High(w) do
begin
  if not w[i] then
  begin
    b:= False;
    break;
  end;
end;

[Jumpy]

Oder noch eine Variante

Delphi-Quellcode:

b:= True;
for i:= Low(w) to High(w) do
  b := b and w[i];

[Ydobon]

Oder so vielleicht?

Delphi-Quellcode:

var testFeld, jajajaFeld: Array[1..10] of Boolean;
begin
  ...
  FillChar(jajajaFeld, 10, true);
  if CompareMem(@jajajaFeld, @testFeld, 10) then ShowMessage('Ups');

[freimatz]

Sehr gut Das kann super als schlechtes Beispiel dienen.

[Neutral General]

Zitat von freimatz:

Sehr gut Das kann super als schlechtes Beispiel dienen.

Begründung?

[freimatz]

Es verletzt mehrere Clean-Code Regeln (KISS, "Vorsicht vor Optimierungen!", POLS), ist nicht evolvierbar und fehleranfällig.
Die Varianten von hoika und Jumpy haben diese Probleme nicht.

[MicMic]

Danke für die Tipps.
Ich dachte ja, es gibt sowas wie "if w[1..10] = true" oder statt ".." vielleicht "-" oder "/". Aber so eine For-Schleife (3 Zeiler von @Jumpy) ist ja auch recht klein. Danke an alle.

@zeras
Aber wieso sollte man nicht auf "true" prüfen (if variable=true then), sprich eher nur "if variable then" nehmen?

Michael

[KodeZwerg]

Nimm lieber eine auf False Prüfen Variante wie diese hier, damit wird es nie zu Problemen kommen.

Zitat von hoika:

Delphi-Quellcode:

b:= True;
for i:= Low(w) to High(w) do
begin
  if not w[i] then
  begin
    b:= False;
    break;
  end;
end;

False kann/sollte immer nur 0 ergeben, True kann vieles sein.


edit
also auf code Ebene runtergeschraubt

Delphi-Quellcode:

  if not w[i] then
//
  if w[i] = 0 then
..
  if w[i] then
//
  if w[i] > 0 then

Beim kompilieren hat Delphi Wert 1 für True, aber nicht alle Trues sind 1, verstehst Du was ich damit sagen will?

[DeddyH]

Die Konstante true ist mit 1 belegt, tatsächlich ist aber alles <> 0 true. Windows-API-Funktionen geben z.B. gern einmal eine negierte 0 zurück, welcher Wert das dann ist, hängt von der Bitbreite ab. Auf jeden Fall schlägt der Vergleich mit 1 dann fehl.

[Delphi.Narium]

Ich frag' mich immer, warum sollte ich if variabel = true then schreiben. wenn doch if varibel then vollkommend ausreichend ist? Wahrer als wahr wird es nicht.

Oder:

Warum sollte ich if variabel = false then schreiben, wenn doch if not variabel then ausreicht? Falscher als falsch wird es nicht.

Von mir aus kann man auch noch

Delphi-Quellcode:

case variabel of
  false : Irgendwas;
else
  was anderes;
end;

machen.

Aber, wenn man bei

Delphi-Quellcode:

case variabel of
  false : irgendwas;
  true  : Nochwas;
else
  UppsWas;
end;

in den Else-Zweig kommt, dann ist der Fall eingetreten, vor dem hier ausdrücklich gewarnt wird.

Und wer mal mit Datenbanken arbeitet und .AsBoolean benutzt weiß, dass das nicht immer funktioniert, dort gibt es nämlich den dritten von zwei möglichen Fällen, nennt sich Null.