Schleifenfunktionen?

[Sniff]

Kann mir mal jemand die funktionen geben mit denen ich:
-aus einer Schleife springen kann
-zum nächsten schleifen durchlauf springen kann

Oh Ja und wie geht noch gleich eine Fussgesteuerte SChleife?

[Rainer]

Auszüge aus der Hilfe

Continue (Prozedur)

Die Prozedur Continue setzt die Programmausführung mit dem nächsten Durchlauf einer for-, while- oder repeat-Schleife fort.

Unit

System

Kategorie

Ablaufsteuerung

procedure Continue;

Beschreibung

Continue bewirkt, daß der nächste Durchlauf der for-, while- oder repeat-Anweisung ausgeführt wird.

Wird Continue außerhalb eines for-, while- oder repeat-Konstrukts aufgerufen, gibt der Compiler eine entsprechende Fehlermeldung aus.

Hinweis

In der Beschreibung der Prozedur Break erfahren Sie, wie Sie Schleifen und finally-Blöcke verlassen können.

----

Break (Prozedur)

Unit

System

Die Prozedur Break verläßt eine for-, while- oder repeat-Schleife.

Kategorie

Ablaufsteuerung

procedure Break;

Beschreibung

Break bewirkt, daß eine for, while oder repeat-Schleife verlassen und die Ausführung mit der nächsten Anweisung fortgesetzt wird.

Wird Break außerhalb eines for-, while- oder repeat-Konstrukts aufgerufen, gibt der Compiler eine entsprechende Fehlermeldung aus.

Hinweis

Mit Break können keine try..finally-Blöcke verlassen werden. Wenn Sie Break in einem try..finally-Konstrukt aufrufen, wird die Ausführung in der finally-Klausel fortgesetzt.

Also z.B. sowas
[font class=code style="background-color: transparent; border: none;"]var
  i: Integer;
begin
  for i := 1 to 5 do
  begin
    if i = 1 then Continue; //direkt zur 2 weiter
   [/color]//aufhören
   [/color]ListBox1.Items.Add(IntToStr(i));
  end;
end;
[/color][/font]

[AndreasMascher]

ich sage dir einfach was ich alles kann okay?

Exit --] verlässt die procedure, function usw
break --] verlässt aktuelle schleife

du kannst auch ein label (innerhalb einer Procedure) deklarieren:

Procedure tuhwas;
var message : string;
label anfang, ende;
begin
  Anfang : ShowMessage('Du bist am Anfang');
  tuhwas;
  tuhnochwas;
  if ... then
  begin
     if ... then goto anfang else goto ende;
   end;

  Ende : ShowMessage ('Du bistam Ende ;-)');

end;

probier einfadch mal n bisschen aus... ist jetzt n bisschen unübersichtlich alles aber ich denke das geht

[marian19]

frag mich nicht warum, aber viele Delphi programierer finden break und exit nicht besonders gut.
Ich habe immer blind angenommen das die ein guten grund haben und regel deshalb das meiste mit booleans.
ich kan nochmal nach fragen warum genau man break und exit (in gegenteil zu C++) besser nicht benutzen kan.

[katjah]

Man sollte sie nicht benutzen, weil das der Strukturierten Programmierung widerspricht.
Demnach darf eine Schleife oder eine Funktion nur einen Aussprungpunkt haben. Mit break oder exit produziert man aber mehrere Aussprungpunkte.

[AndreasMascher]

Demnach darf eine Schleife oder eine Funktion nur einen Aussprungpunkt haben. Mit break oder exit produziert man aber mehrere Aussprungpunkte.

das ist aber noch kein grund, der dagegen spricht!

//Unstrukturiert?
repeat
  //tuh was
  if abbruch then break;
until alles getutet;

//Strukturiert?
repeat
  //tuh was
until (alles getutet = true) or (abruch = true);

(abbruch : boolean, wenn auf den abbrechen button gedrückt wird = true)


Katja, was ist daran nicht strukturiert?

[marian19]

@ katje

genau das hab ich schon ganz oft gehort....

[Elias Zurschmiede]

Hallo

In einer for-do Schlaufe kann Break durchaus Sinn machen.
In while-do und repeat-until kann man gut ohne auskommen.

[marian19]

wenn man in einer for loop ein break braucht, kann mann besser ein while statement benutzen.....

[katjah]

@AndresMascher:

Versuch mal Deinen Code in einem Struktogramm (Nassi-Shneiderman) darzustellen.

[AndreasMascher]

@katjah
was ist das? (Struktogramm (Nassi-Shneiderman))

@Elias Zurschmiede
Ja, da gebe ich dir durchaus recht. Aber es ging eher um die Frage, warum dieser Befehl "schlecht" ist. Ab dem moment, wo ich befehle wie label oder break und exit kennengelernt hatte, konnte ich mich viel "freier" in meiner Procedure bewegen. Also, ich finde es erleichtert! Man kann halt jederzeit "raus" ;-)

[Peda]

hm, von Labels sollte man in der Delphi-Welt überhaupt die Finger lassen...

[AndreasMascher]

"von Labels sollte man in der Delphi-Welt überhaupt die Finger lassen", begründen konnte das hier aber noch keiner.

[Loïs Bégué]

Also, ich glaube wir sollten alle die Bank drücken...

Ich kann mich etwa daran erinern, daß "break/continue" in Turbo-Pascal nicht so angebracht waren. Damals konnte man z.B. den Wert der Laufvariable einer FOR-Schleife von innerhalb der Schleife selbst ändern.

Soweit ich weiß ist es Heute unter Delphi anders.
Und zwar weil der Optimierer/Compiler die Änderungen der Laufvariable unterbindet/unmöglich macht.

Demnach ist es Heute durchaus Sinnvoll (z.T. die einzige Möglichkeit) "break/Continue..." zu benutzen.

Das nennt man "Entwicklung" der hohen Programmiersprachen :o)

Labels sind zugegebenermaßen nicht davon betroffen. Die Benutzung von Labels kann man sich aber durch entsprechende Benutzung von Try Except/finally + Repeat/while + Case..of + Prozeduraler Aufbau ersparen.

Gruß,

[katjah]

@Andreas Mascher:

ein Struktogramm ist ein Darstellungsmittel, welches bei der Planung von Programmen eingesetzt werden kann.

label und goto sind übrigens in der "Strukturierten Programmierung" strikt verboten.

Bei "Strukturierter Programmierung" handelt es sich um einen Begriff aus der Informatik (also keine Erfindung von mir).
Aus diesem Konzept heraus ist übrigens die Programmiersprache Pascal enstanden (Anfang der 70er? Jahre durch Nikolaus Wirth an der ETH Zürich).

[AndreasMascher]

@katjah

Cool, darauf wollte ich hinaus:

Du sagtest:
"Man sollte sie nicht benutzen, weil das der Strukturierten Programmierung widerspricht. (ein Struktogramm ist ein Darstellungsmittel, welches bei der Planung von Programmen eingesetzt werden kann.)"
So, aber wen in diesem Forum (und gerade im Einsteiger Forum) betrifft das denn? Wohl eher wenige... Und solange ich eindimensionalen Programmtext verwende, KANN es einfach nicht "schlecht" sein.

Daher denke ich weiterhin, dass die Verwendung von Befehlen dieser Art bei der Programmierung durchaus hilfreich sind. (Bei der Verwendung von Labels sehe ich das gewissermaßen ein, da ich sie sowieso noch nicht gebraucht habe).

Ich möchte aber noch einmal erwähnen, dass ich erst seit 4 Jahren programmiere, und das nicht einmal wirklich gut (selbst beigebracht) und du machst eher den Eindruck als verstündest du etwas vom coden. Aber die Argumente leuchten mir einfach nicht ein, die gegen diese Art von programmieren sprechen.

[katjah]

@AndreasMascher:

Wenn Du dieses Topic mal genau durchliest, wirst Du hoffentlich feststellen, daß ich nicht nicht gesagt habe, daß break und exit schlecht sind.

Ich habe lediglich marian19 eine Antwort darauf gegeben, warum diese Befehle bei vielen Delphi-Programmieren verpönt sind.

[AndreasMascher]

du hattest irgendwas von ausgangspunkten gesagt, die zusätzlich entstehen.

Aber wahrscheinlich hatte ich dich einfach falsch verstanden.
Friede? *lach*

[katjah]

Ok, Friede.

;-)