Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.016 Beiträge
Delphi 12 Athens
|
AW: Schleifen-Problem
3. Nov 2013, 04:15
Ich wollte eigentlich erstmal das Grundproblem angehen.
Eine For-Schleife ist ja im Grunde eine While-Schleife (oder Repeat mit vorherrigem IF).
Du mußt dir einfach nur mal überlegen was eine For-Schleife eigentlich macht.
- es initialisiert die Schleifen-Variable mit dem Startwert
- prüft die Abbruchbedingung (vergleichen mit Endwert)
- und erhöht nach jedem Durchgang den Wert der Variable
Und schon hast du den Codes für das While zusammen.
Beim Repeat wird der Wert am ende der Schleife geprüft und während beim While darauf beprüft wird, ob in die Schleife reingesprungen wird, wird beim Repeat auf den Abbruch der Schleife geprüft.
Dementsprechend muß man die Prüfung umbauen und auch darauf achten, daß dort auf den Endwert erst nachträglich geprüft wird.
@EineFrage: Beachte mal, bei deinem Code, daß man in Edit2 auch eine 0 oder sogar eine negative Zahl eingeben könnte ... also nicht wundern, wenn die Repeat-Variante dort ein anderes Ergebnis liefert.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
|