Programm hängt sich auf wegen ner Schleife

KeinePanik · Beiträge: 131

hmm fiji ...

so würde ich das (der Übersicht wegen) nie machen ... man sieht ja an diesem Thema, zu welchen Missverständnissen das führt (meinerseits) ...

egal ... Thema (für mich) abgehakt ...

_________________
Es gibt keine dummen Fragen ... Nur blöde Antworten !!!

Gast Erhaltene Danke: 1

@KeinePanik

Doch

markieren

Quelltext

1:
2:
3:
4:
5:
6:

for x := 0 to 10 do 
  for y := 0 to 10 do begin
    Anweisung1
    Anweisung2
    ...
  end;

Die Regel ist: Wenn du eine Anweisung ausführen willst, dann brauchst du kein begin..end. Erst wenn du mehrere Anweisung zusammenfassen willst, erst dann brauchst du begin..end. for y := 0 to 10 do ist für for x := 0 to 10 do nur eine Anweisung. Deshalb kein begin..end. for y := 0 to 10 do muß dagegen zwei Anweisungen ausführen, deshalb ein Anweisungsblock.

Raphael O. · Beiträge: 1596 VS 2013

du musst vor der schleife i initialisieren!

markieren

Quelltext

1:	i:=AbsenderNamenListe.Items.Count-1;

außerdem:

markieren

Quelltext

1:

i:=-1;

so geht das nicht, denn dann ist i immer "-1"--> also so:

markieren

Quelltext

1:

i:=i-1;

am Ende musst du überprüfen ob
x=0 ist und nicht ob Anzahl.text=0 ist!!!

weitere Fragen???

Fiji-Fighter

KeinePanik · Beiträge: 131

ja es funktioniert so ...

ich schreib mir aber bei jeder Schleife nen Kommentar dahinter, so dass es für MICH mit einem zusätzlichen "begin" und "end;" übersichtlicher ist ... selbst wenn die erste Schleife nur "EINE" Anweisung hat ...

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

for x := 0 to 10 do 
begin //Schleife1
  for y := 0 to 10 do 
   begin //Schleife2
     Anweisung1 
     Anweisung2 
    ... 
  end;//Schleife2
end; //Schleife1

So ist eben MEIN Stil, deshalb bin ich zunächst nicht mit euren Aussagen klar gekommen ... (jetzt ist es klar ... und auch logisch ... nur ungewohnt) ...

_________________
Es gibt keine dummen Fragen ... Nur blöde Antworten !!!

Gast Erhaltene Danke: 1

@F.Art

Wieso immer noch zwei mal

markieren

Quelltext

1:
2:
3:
4:
5:
6:

for x:=1 to strtoint(Anzahl.text) do 
begin 
   ...
  Anzahl.text := inttostr(strtoint(Anzahl.Text) - 1); 
  if Anzahl.Text=('0') then Break;
end;

Einmal als for x:=1 to strtoint(Anzahl.text) do Schleife, dann aber auch noch als Anzahl.text := inttostr(strtoint(Anzahl.Text) - 1).

Mit der x Schleife wird doch schon bis Anzahl.text gezählt. Wieso dekrementierst du noch mal Anzahl.text am ende des Blocks?

ist das gleiche wie :

markieren

Quelltext

1:
2:
3:
4:
5:

for x:=1 to strtoint(Anzahl.text) do 
  for x2:=(strtoint(Anzahl.text) - 1) downto 0 do 
  begin 
     ...
  end;

Ist unlogisch. Das hab ich dir aber schon am anfang geschrieben.

Irgendwie hab ich das gefühl, daß du meine Antworten ignorierts. Ist das so? Wenn ja, dann schreib mir ein KM warum und ob ich es lassen soll.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme