Problem: While Schleife

[Poring]

Hallo,
ich möchte folgendes gerne vereinfachen:
while (a=b) or (a=c) or (a=d) ... do begin Die variablen enthalten normale integer werte.
Habe mir gedacht man könnte dies auch so vereinfachen:
while a=b,c,d,e... do begin Dies geht jedoch nicht.
Gibt es eine möglichkeit dies zu vereinfachen?

Mfg

[mkinzler]

while a in ( a, b, c, ...)

[Dax]

Zitat von mkinzler:

while a in ( a, b, c, ...)

Hier geht es aber um Pascal, nicht SQL. Du könntest höchstens Sets meinen, aber die kommen nur mit Bytes klar

[mkinzler]

Dann nehme ich alles zurück

[Poring]

Also gibt es keine möglichkeit dies zu vereinfachen?

[Dax]

Es gibt praktisch nur die von dir am Anfang gezeigte Möglichkeit.

[Poring]

Schade, naja trozdem danke!

[Poring]

Gibt es denn eine möglichkeit bei IF?
if a=b,c,d... then repeat ... until ...

[Dax]

Nein.

[raiguen]

Zitat von mkinzler:

while a in ( a, b, c, ...)

Nicht ganz, aber fast richtig :
while a in [ b, c, d] Und man staune: es funzt so gar

Zitat von Poring:

Gibt es denn eine möglichkeit bei IF?
if a=b,c,d... then repeat ... until ...

Zitat von Dax:

Nein.

wiederum nicht ganz richtig zumindest bis zum repeat  if a in [b,c,d] then begin ... [EDIT] der Vollständigkeit halber noch das hier

Delphi-Quellcode:

repeat
//--mach was mit a
until a in [b,c,d]

[/Edit]
So mal so rein theoretisch in den Raum geworfen; der Verwendungszweck der Konstrukte ist natürlich sinnnvoll oder auch nicht - kommt halt auf die Programmlogik an...