Probleme bei Kniffel...

[Sidorion]

1. Hast Du das Array GrosseStrasse vor dem Sortieren mit den Würfelwerten befüllt?
2. ersetz doch mal diese unselige verschachtelte if-abfrage durch eine mit ands. Weil so wies hier steht weiss kein Mensch zu welchem if das else gehört (ja ich weiss normalerweise zum letzten, kann trotzdem niemand lesen).

Delphi-Quellcode:

  If (GrosseStrasse[2]=Succ(GrosseStrasse[1]))
  And (GrosseStrasse[3]=Succ(GrosseStrasse[2]))
  And (GrosseStrasse[4]=Succ(GrosseStrasse[3]))
  And (GrosseStrasse[5]=Succ(GrosseStrasse[4]))
  Then Begin
  //hier grosse Strasse
  End Else Begin
  //hier nicht
  End;