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]