Wieviel mal OR/AND ?

**Privateer3000**

Hi folks,

wenn man mit:
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:

zusammenfalten · markieren

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?

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

**Privateer3000**

Danke Leute
für Eure Hilfe!

Gruß

**mr47**

Zitat von Hawkeye219:

Vielleicht so?

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.

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.

Wieviel mal OR/AND ?

Wieviel mal OR/AND ?

Re: Wieviel mal OR/AND ?

Re: Wieviel mal OR/AND ?

Re: Wieviel mal OR/AND ?

Re: Wieviel mal OR/AND ?

Re: Wieviel mal OR/AND ?

Re: Wieviel mal OR/AND ?

Re: Wieviel mal OR/AND ?

Re: Wieviel mal OR/AND ?

Re: Wieviel mal OR/AND ?

Forumregeln

Privateer3000 Registriert seit: 10. Jun 2002 Ort: Jena 1.128 Beiträge Delphi 10.4 Sydney	#1 Wieviel mal OR/AND ? 1. Nov 2006, 22:58 Hi folks, wenn man mit: 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 Peter +++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++
	Zitat

3_of_8 Registriert seit: 22. Mär 2005 Ort: Dingolfing 4.129 Beiträge Turbo Delphi für Win32	#2 Re: Wieviel mal OR/AND ? 1. Nov 2006, 23:03 So? Gar nicht. Du musst das ganze mit einzelnen ifs machen. Manuel Eberl „The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“ - Terry Pratchett
	Zitat

Hawkeye219 Registriert seit: 18. Feb 2006 Ort: Stolberg 2.227 Beiträge Delphi 2010 Professional	#4 Re: Wieviel mal OR/AND ? 1. Nov 2006, 23:17 Vielleicht so? Count := Ord(gettake1 = ziffer) + Ord(gettake2 = ziffer) + Ord(gettake3 = ziffer); Gruß Hawkeye
	Zitat

Privateer3000 Registriert seit: 10. Jun 2002 Ort: Jena 1.128 Beiträge Delphi 10.4 Sydney	#5 Re: Wieviel mal OR/AND ? 1. Nov 2006, 23:20 Danke Leute für Eure Hilfe! Gruß Peter +++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++
	Zitat

mr47 Registriert seit: 6. Dez 2004 Ort: Stuttgart 644 Beiträge Delphi 2005 Personal	#6 Re: Wieviel mal OR/AND ? 1. Nov 2006, 23:21 Zitat von Hawkeye219: Vielleicht so? Count := Ord(gettake1 = ziffer) + Ord(gettake2 = ziffer) + Ord(gettake3 = ziffer); Gruß Hawkeye Nicht nur vielleicht. True hat den Wert 1, False den Wert 0.
	Zitat

3_of_8 Registriert seit: 22. Mär 2005 Ort: Dingolfing 4.129 Beiträge Turbo Delphi für Win32	#7 Re: Wieviel mal OR/AND ? 1. Nov 2006, 23:36 Darauf würd ich mich jetzt nicht soo verlassen, Wenn man True als LongBool interpretiert, hat es zum Beispiel den Wert -1. Manuel Eberl „The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“ - Terry Pratchett
	Zitat

Muetze1 (Gast) n/a Beiträge	#8 Re: Wieviel mal OR/AND ? 1. Nov 2006, 23:41 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.
	Zitat

3_of_8 Registriert seit: 22. Mär 2005 Ort: Dingolfing 4.129 Beiträge Turbo Delphi für Win32	#9 Re: Wieviel mal OR/AND ? 1. Nov 2006, 23:54 Ord(LongBool(True))=-1 Manuel Eberl „The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“ - Terry Pratchett
	Zitat

Privateer3000 Registriert seit: 10. Jun 2002 Ort: Jena 1.128 Beiträge Delphi 10.4 Sydney	#10 Re: Wieviel mal OR/AND ? 2. Nov 2006, 11:20 Für meinen speziellen Fall, ist Ord genau das richtige. Danke Leute es geht so, wie ich es möchte. Peter +++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++
	Zitat