Prüfen ob Integer in Array?

[Hawkeye219]

Zitat von urbanbruhin:

[weiss jemand was das problem ist?

Du mußt das Set zunächst initialisieren, sonst enthält es zufällige Werte:

Delphi-Quellcode:

var s : set of 1..9;
begin
  result := false;
  s := [];  // <<----- hier
  Include(s, i1);

Die Abfrage kannst Du vereinfachen. Statt

Delphi-Quellcode:

if (1 in s) and (2 in s) and (3 in s) and (4 in s) and (5 in s) and
   (6 in s) and (7 in s) and (8 in s) and (9 in s) then result := true;

schreibst Du es so:
if (s = [1..9]) then result := True; Zumindest beim Test auf Gleichheit kannst Du Sets wie "normale" Variablen benutzen. Die Abfrage mit "in" hast Du ja offenbar schon verstanden.


Gruß Hawkeye