Forum: Programmieren allgemein
by himitsu,
15. Jun 2011
ganz dringend: Delphioptionen > Indexprüfung aktivieren
Ich bin mir ganz relativ sehr sicher, daß das nötig sein wird, da dur ganz bestimmt ein paar nette Indexfehler (Buffer Overrun) verbaut hast.
PS: Die letzen zwei Schleifen lassen sich zu einer vereinen, so daß Exit und Goto überflüssig werden.
Forum: Programmieren allgemein
by himitsu,
15. Jun 2011
Das IF liegt aber nicht direkt in der Schleife, sondern in dem IF. :wink:
For I := 0 to EineListe.Count - 1 do
begin
...
Exit(...);
end;
Und was sagst du dazu?
PS: Sowas ist oben in den beiden drei verschachtelten Schleifen auch drin, die Mittlere wird niemals durchlaufen, da sie anscheinend (falls ich das richtig seh) immer gleich im ersten Durchgang abgebrochen wird.
Forum: Programmieren allgemein
by himitsu,
14. Jun 2011
goto NextStep; => Continue (das Gegenstück zum Break)
Ansonsten ist diese Schleife, mit dem exit am ende vollkommen vermurkst, wenn das Exit immer die Schleife beendet, ist das schonmal ein guter Hinweis, daß da was nicht stimmt.
Aber wurde ja nun schon umgeschrieben.
PS: Mit goto kann man auch rückwärts springen, was dann das Exit-while-Goto durch ein goto ersetzt hätte. :roll: