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

[Progman]

die IN-Variante geht nur mit Sets, da dürfen a, b, c nur ordinale Typen (Byte, Char) sein, aber keine Integer oder Strings.
Ne Variante wäre:

Delphi-Quellcode:

case a of
  b, c, d: Machwas
 else machnix
end

hier können auch Integer genommen werden.

[Sharky]

Hai,

warum nicht eine kleine Hilfsfunktion basteln?

Delphi-Quellcode:

function InArray(aValue: Integer; aArray: array of Integer): Boolean;
var
  i: Integer;
begin
  result := False;
  for i := Low(aArray) to High(aArray) do
  begin
    if (aValue = aArray[i]) then
    begin
      result := True;
      Exit;
    end;
  end;
end;

procedure TDemo_Form.Button1Click(Sender: TObject);
var
  a, b, c, d: Integer;
begin
  a := 1;
  b := 2;
  c := 3;
  d := 4;
  while InArray(a, [b, c, d]) do
  begin
  end;
end;

[raiguen]

Zitat:

Zitat von Progman

die IN-Variante geht nur mit Sets, da dürfen a, b, c nur ordinale Typen (Byte, Char) sein, aber keine Integer oder Strings.

:roll: Ach... KEINE Integer :?: und wieso funzt es dann bei mir, wenn ich für b, c, d nen Integer verwende :gruebel: ich verwende in zahlreichen Modulen meines umfangreichen Programmes mit dieser IN-Variante, um langwierige IF-Abfragen zu umgehen :)
[EDIT] @Sharky:

Code:

while a in [b, c, d]

funzt sehr wohl, wie ich in #12 beschrieben habe
[/EDIT]

[Sharky]

Zitat:

Zitat von raiguen

... und wieso funzt es dann bei mir, ...

Weil Integer zu den Ordinaltypen gehören ;-) Aber die Werte dürfen dann eigentlich nur zwichen 0 und 255 liegen und im Set können maximal 256 Werte vorhanden sein. (Wenn ich es richtig im Kopf habe)

[DeddyH]

Zitat:

Zitat von Sharky

Aber die Werte dürfen dann eigentlich nur zwichen 0 und 255 liegen und im Set können maximal 256 Werte vorhanden sein.

Richtig. Wenn die Werte aus Variablen kommen, kommt es zum Überlauf, bei Konstanten meckert der Compiler sofort, wenn zu große Werte angegeben werden.

[raiguen]

@Sharky: richtig! Also funzt das mit Integer genauso, allerdings nur bis zur 'Grenze' 255 ;) Selbst bei Variablen, sofern der Wert eben diese Grenze nicht überschreitet.

[LoCrux]

Mh....

auch mal senfen....

NEVER use Exit in your code! (Ich weiss, ist philosophisch und hart umstritten)

Abaenderung (sorry hab nur ne Koreanische Tastatur / kein Umlaute) der Funktion von Sharky.

Delphi-Quellcode:

function  InArr(const val:Integer;arr:array of integer):Boolean;
var i:integer;
begin
  result := false;
  i := low(arr); // := 0;
  while (not(result) and (i<=high(arr))) do begin result := result or (val=arr[i]); inc(i); end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  ar : array of integer;
begin
  setlength(ar,65536); // es geht auch noch groesser!!!
  for i := low(ar) to high(ar) do ar[i]:=random(MaxInt);
  if InArr(random(MaxInt),ar) then Button1.Caption:='IN' else Button1.Caption:='NOT IN';
end;