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