Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Procedure anhalten/stoppen (https://www.delphipraxis.net/42892-procedure-anhalten-stoppen.html)

St.Pauli 25. Mär 2005 13:29


Procedure anhalten/stoppen
 
Gibt es einen Befehl mit dem man allgemein Proceduren anhalten bzw. stoppen kann?

Waldteufel 25. Mär 2005 13:46

Re: Procedure anhalten/stoppen
 
Ja, den gibt es.

Delphi-Quellcode:
procedure NurDieHaelfte;
begin
  { ein bischen code }
  Exit;
  { noch ein bischen code }
end;
Jetzt wird nur der Teil ausgeführt, der vor dem "Exit;" steht. Der Teil danach wird übersprungen.

Binärbaum 26. Mär 2005 03:01

Re: Procedure anhalten/stoppen
 
Nur zur Ergänzung:
Es gibt auch noch einen ähnlichen Befehl für Schleifen:
Delphi-Quellcode:
var i: Integer;
...
for i:= 0 to 2000000000 do begin
  if i = 2 then Break;
end;
//hier geht's weiter
...
Delphi-Referenz durchsuchenBreak sorgt dafür, dass die Schleife abgebrochen wird und das Programm nach der Schleife fortgesetzt wird.

MfG
Binärbaum

Luckie 26. Mär 2005 03:21

Re: Procedure anhalten/stoppen
 
Zitat:

Zitat von Waldteufel
Ja, den gibt es.

Delphi-Quellcode:
procedure NurDieHaelfte;
begin
  { ein bischen code }
  Exit;
  { noch ein bischen code }
end;
Jetzt wird nur der Teil ausgeführt, der vor dem "Exit;" steht. Der Teil danach wird übersprungen.

Und warumn sollte ich jetzt Code schreiben, der eh nie ausgeführt wird? :gruebel:

Binärbaum 26. Mär 2005 03:27

Re: Procedure anhalten/stoppen
 
Zitat:

Zitat von Luckie
Und warum sollte ich jetzt Code schreiben, der eh nie ausgeführt wird? :gruebel:

Ich nehme mal an, dass das nur ein Beispiel war, um zu verdeutlichen, dass der nachfolgende Code nicht ausgeführt wird. :zwinker:
Und evtl. kann man das Exit ja noch an eine Bedingung knöpfen, damit der Code doch noch ausgeführt werden kann:
Delphi-Quellcode:
procedure NurDieHaelfte_OderAlles;
var abbruch: Boolean;
begin
  { ein bischen code }
  if abbruch then Exit;
  { noch ein bischen code, der sogar ausgeführt werden könnte }
end;
MfG
Binärbaum

sECuRE 26. Mär 2005 09:00

Re: Procedure anhalten/stoppen
 
Hi,

oder man spart sich mittels exit; das Auskommentieren von viel danach folgendem Code ;)

cu

Binärbaum 26. Mär 2005 13:54

Re: Procedure anhalten/stoppen
 
Zitat:

Zitat von sECuRE
Hi,

oder man spart sich mittels exit; das Auskommentieren von viel danach folgendem Code ;)

cu

Auch ne Variante. :lol:
Aber das macht keinen Sinn. Wenn man weiß, dass Exit immer aufgerufen wird, kann man sich den nachfolgenden Code sparen. Exit macht IMHO nur Sinn, wenn es an eine Bedingung geknüpft ist.

MfG
Binärbaum

SubData 26. Mär 2005 14:02

Re: Procedure anhalten/stoppen
 
Zum Debuggen kann sowas aber ganz nützlich sein :>


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:44 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