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.

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