Wieviel mal OR/AND ?

[Privateer3000]

Hi folks,

wenn man mit:

Delphi-Quellcode:

if (gettake1 = ziffer)OR(gettake2 = ziffer)OR(gettake3 = ziffer)

herausfinden kan ob eine der Zustände zutrifft,
wie kann man einen Rückgabewert bekommen wie oft der Zustand zutraf?

Greetings
Privateer

[3_of_8]

So? Gar nicht. Du musst das ganze mit einzelnen ifs machen.

[BillieJoe90]

Mir fällt nur das ein:

Delphi-Quellcode:

procedure Irgendwas;
var i:Integer;
begin
  i := 0;
  if (gettake1 = ziffer) OR (gettake2 = ziffer) OR (gettake3 = ziffer) then begin
    if (gettake1 = ziffer) then
      i := i + 1;
    if (gettake2 = ziffer) then
      i := i + 1;
    if (gettake3 = ziffer) then
      i := i + 1;

    showMessage(IntToStr(i) + 'x aufgetreten');

    // Weiter in der Prozedur...
  end;
end;

[Hawkeye219]

Vielleicht so?

Delphi-Quellcode:

Count := Ord(gettake1 = ziffer) + Ord(gettake2 = ziffer) + Ord(gettake3 = ziffer);

Gruß Hawkeye

[Privateer3000]

Danke Leute
für Eure Hilfe!

Gruß

[mr47]

Zitat:

Zitat von Hawkeye219

Vielleicht so?

Delphi-Quellcode:

Count := Ord(gettake1 = ziffer) + Ord(gettake2 = ziffer) + Ord(gettake3 = ziffer);

Gruß Hawkeye

Nicht nur vielleicht. True hat den Wert 1, False den Wert 0.

[3_of_8]

Darauf würd ich mich jetzt nicht soo verlassen, Wenn man True als LongBool interpretiert, hat es zum Beispiel den Wert -1.

[Muetze1]

Zitat:

Zitat von 3_of_8

Darauf würd ich mich jetzt nicht soo verlassen, Wenn man True als LongBool interpretiert, hat es zum Beispiel den Wert -1.

Da sorgt dann aber Ord() für ein definiertes Ergebnis von 0 und 1.

[3_of_8]

Ord(LongBool(True))=-1

[Privateer3000]

Für meinen speziellen Fall,
ist Ord genau das richtige.
Danke Leute es geht so, wie ich es möchte.