Problem: While Schleife

[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;