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;
Manchmal sehen Dinge, die wie Dinge aussehen wollen mehr wie Dinge aus, als Dinge
<Esmerelda Wetterwachs>