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

[MicMic]

Hallo,
ich habe beispielsweise ein "array[1..10] of boolean".
Kann man die ggf. komplett auf den Wert "True" prüfen? Könnte mir vorstellen, dass dies geht.

Ich mache es halt gerade so (als Beispiel):

Code:

 var w : array[1..10] of boolean;
 ...
 if (w[1] = true) and (w[2] = true) and ... then alles_ist_auf_true();

Bestimmt ist Delphi so klug, dass dies auch einfacher geht

Michael

[zeras]

Auf true solltest du nie abtesten, einfach

if w[1] and w[2] usw.

Vielleicht hilft auch eine Schleife weiter, wenn du einmal die Anzahl der zu prüfenden Objekte änderst.

[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?