Hallo,
falls das zu prüfende Array immer genau 9 Elemente besitzt, hilft Dir vielleicht folgender Code:
Delphi-Quellcode:
var i : Integer;
s : set of 1..9;
begin
// Menge der enthaltenen Zahlen zusammenstellen
s := [];
for i := 0 to 8 do
if (a[i] in [1..9]) then
Include (s, a[i]);
// Ergebnis prüfen
if (s = [1..9]) then
ShowMessage ("Jede Zahl genau 1x enthalten");
end;
Falls das Array mehr als 9 Elemente enthält, kann mit dem Code nur noch das Vorhandensein, nicht aber die Eindeutigkeit einer Zahl überprüft werden:
if (4 in s) then...
Gruß Hawkeye