![]() |
Abruptes Beenden einer Schleife
Hey Leutz,
ich habe folgendes Problem: Ich durchsuche mit Hilfe einer Schleife ein Array. Wenn er einen bestimmen Wert gefunden hat, dann soll er die Schleife abrupt beeenden. Hier nun noch als Hilfe mein Code.
Delphi-Quellcode:
Vielen Dank für eure Hilfe
For x:= 0 to (AnzahlPunkte - 1) Do
begin If NewxPunkte[Durchlaeufe] = NewxPunkte[x] Then begin If NewyPunkte[Durchlaeufe] = NewyPunkte[x] Then IF Durchlaeufe <> x Then begin PunktMerker:=true; // Hier soll die For-Schleife abrupt beendet werden und in Zeile mit Anzeige[...]:=0; gesprungen werden. end; end Else PunktMerker:=false; end; Anzeige[NewxPunkte[Durchlaeufe], NewyPunkte[Durchlaeufe]]:= 0; Daniel |
Re: Abruptes Beenden einer Schleife
![]() |
Re: Abruptes Beenden einer Schleife
Vielen Dank für deine Hilfe!
|
Re: Abruptes Beenden einer Schleife
Delphi-Quellcode:
;-)
For x:= 0 to (AnzahlPunkte - 1) Do
begin If NewxPunkte[Durchlaeufe] = NewxPunkte[x] Then begin If NewyPunkte[Durchlaeufe] = NewyPunkte[x] Then IF Durchlaeufe <> x Then begin PunktMerker:=true; break; // Hier soll die For-Schleife abrupt beendet werden und in Zeile mit Anzeige[...]:=0; gesprungen werden. end; end Else PunktMerker:=false; end; Anzeige[NewxPunkte[Durchlaeufe], NewyPunkte[Durchlaeufe]]:= 0; |
Re: Abruptes Beenden einer Schleife
Zitat:
|
Re: Abruptes Beenden einer Schleife
Zitat:
PS: Herzlich Willkommen in der DP! :dp: |
Re: Abruptes Beenden einer Schleife
Nein, vor einem end braucht man kein ; :mrgreen:
|
Re: Abruptes Beenden einer Schleife
Danke für die nette Begrüßung und die nette Hilfe!
Da kann ich nur zustimmen :dp: |
Re: Abruptes Beenden einer Schleife
Zitat:
|
Re: Abruptes Beenden einer Schleife
Zitat:
Flare |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:15 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz