Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi While - Schleife ... (https://www.delphipraxis.net/4640-while-schleife.html)

Ricane 7. Mai 2003 13:19


While - Schleife ...
 
Moin,

weiß hier jemand wie man aus einer While Schleife rausspringt, aber sie nicht ganz beendet? Klingt ziemlich Irreführend, daher hier ein Bsp.
Code:
1  While Z = B Do
2    Begin
3      If Z = X then ... [hier muss der Befehl rein um wieder nach 1 zu springen]
4
...
15    End;
Also, ich möchte wenn Z gleich X ist das die While Schleife wieder von vorne beginnt und nicht der Source Code von 4 - 15 ausführt. Mit Exit geht es ja nicht, dann springt er ganz raus...

Grüsse,

Ricane

PS: Irtgendwie werde ich das Gefühl nicht los das die Antwort seeeehr easy ist...

Chewie 7. Mai 2003 13:22

Re: While - Schleife ...
 
Zitat:

Zitat von Ricane
PS: Irtgendwie werde ich das Gefühl nicht los das die Antwort seeeehr easy ist...

Und damit hast du auch recht. continue brauchst du.


Übrigens: Mit Exit verlässt du nicht die Schleife, sondern die Prozedur bzw. Funktion. Mit break verlässt du eine Schleife.

Ricane 7. Mai 2003 13:23

Code:
Continue
Da muss man als Ex-Vb´ler erstmal drauf kommen :mrgreen:



Dankeschööön :chat:

CalganX 7. Mai 2003 13:33

Es gäbe (Konjunktiv beachten!!!) da noch die Möglichkeit mit den Labels und goto. Allerdings darf jeder, der das verwendet sozusagen geköpft werden. Des wegen willst du gar nicht wissen, wie das geht... *jedisei*
Ernst beiseite: Labels sind ziemlich unklug und sollten daher nicht verwendet werden...

Chris

PS: Nur als Information...

RomanK 7. Mai 2003 14:42

Würde auch mit ELSE gehen:
Delphi-Quellcode:
1  While Z = B Do
2    Begin
3      If Z = X then ... [hier muss ein Befehl der nur ausgeführt wird wenn z =X (ohne ; am ende)]
       else
        begin

...
15    End; //(else)
16    END; //(for)
bzw. in diesem fall einfach mit NOT:
Delphi-Quellcode:
1  While Z = B Do
2    Begin
3      If not(Z = X) then
       begin  // jetzt die befehle ...

...

15    End; //(if)
16    END; //(for)

Daniel B 7. Mai 2003 15:28

Hallo,

ab nach Delphi-Language.

Grüsse, Daniel :hi:

wo0zy 7. Mai 2003 16:04

aber du solltest die whileschleife nicht so stehen lassen, denn dann wird die if-abfrage nie ausgeführt :angle2:

ssach 7. Mai 2003 17:50

hy,

denke ach am einfachsten waere es den rest in eine if bedinung einzubinden, ist die dann falsch beginnt er ja wieder allein von vorne!

cu

Ricane 19. Mai 2003 08:03

Zitat:

Zitat von wo0zy
aber du solltest die whileschleife nicht so stehen lassen, denn dann wird die if-abfrage nie ausgeführt :angle2:

Die Schleife gibt es ja gar nicht in meinem Programm. :D
Die habe ich mir nur aus den Fingern gesogen um ein Bsp. zu haben...


Ricane


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:23 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz