9 Variablen abgleichen / Keytasten festlegen

[Oxmyx]

Delphi-Quellcode:

var
  i, j: Integer;
  vars: array[0..8] of Integer;
  alleUngleich: Boolean;
label
  weiter;
begin
  alleUngleich := True;

  vars[0] := //...
  //...

  for i := 0 to 8 do begin
    for j := 0 to 8 do begin
      if (i <> j) and (vars[i] = vars[j]) then begin
        alleUngleich := False;
        goto weiter;
      end;
    end;
  end;

weiter:
  //...
end;