Problem: While Schleife

[Poring]

Hallo,
ich möchte folgendes gerne vereinfachen:

Delphi-Quellcode:

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:

Delphi-Quellcode:

while a=b,c,d,e... do begin

Dies geht jedoch nicht.
Gibt es eine möglichkeit dies zu vereinfachen?

Mfg

[mkinzler]

Delphi-Quellcode:

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

[Dax]

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

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?

Delphi-Quellcode:

if a=b,c,d... then repeat ... until ...

[Dax]

Nein.

[raiguen]

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

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

Nicht ganz, aber fast richtig ;):

Delphi-Quellcode:

while a in [ b, c, d]

Und man staune: es funzt so gar :lol:

Zitat:

Zitat von Poring

Gibt es denn eine möglichkeit bei IF?

Delphi-Quellcode:

if a=b,c,d... then repeat ... until ...

Zitat:

Zitat von Dax

Nein.

wiederum nicht ganz richtig zumindest bis zum repeat :roll:

Delphi-Quellcode:

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