Probleme bei Kniffel...

[VitroN]

Hallo, bin im mom Kniffel am progen. Bin im mom bei der Kontrollstruktur für die "Große Straße" und komme da nicht weiter. Habe zu Beginn die Anzahl der Würfelaugen der einzelnen Würfel in einem Array sortiert und will dann mir mehreren verschachtelten If-Verzweigungen kontrolieren, ob es eine große Straße ist. Doch egal ob eine voriegt oder nicht, Delphi geht immer in den else-Fall.

Delphi-Code:

Delphi-Quellcode:

//SelectionSort für die Würfelaugen
for i:= 1 to 5 do
 begin
  index:=i;
  MinSoFar:=GrosseStrasse[i];
  for j:= i to 5 do
   begin
   if GrosseStrasse[j]<MinSoFar
    then
     begin
     MinSoFar:=GrosseStrasse[j];
     index:=j;
     end;
   end;
   x:=GrosseStrasse[i];
   GrosseStrasse[i]:=GrosseStrasse[index];
   GrosseStrasse[index]:=x;
  end;
//Kontrolle, ob Große Straße vorliegt
 if GrosseStrasse[1]+1=GrosseStrasse[2] then
  if GrosseStrasse[2]+1=GrosseStrasse[3] then
   if GrosseStrasse[3]+1=GrosseStrasse[4] then
    if GrosseStrasse[4]+1=GrosseStrasse[5] then
     begin
     y:=y+40;
     LGrosseStrasse.Caption:='40';
     LPunkteRechts.Caption:=inttostr(y);
     LGesamtRechts.Caption:=inttostr(y+strtoint(LGesamtLinksRechts.Caption));
     end
  else
   LGrosseStrasse.Caption:='0';

Hoffe hab alles gut genug erklärt und bedank mich schon mal für die Hilfe

VitroN

[edit=Matze][delphi]-Tags gesetzt. Zukünftig bitte selbst erledigen. Mfg, Matze[/edit]