goto-befehl in delphi?

[himitsu]

Och, Beispiele gibt's doch schon einige? *hochschau*

Nee, es ging nicht gegen dich, aber hier waren halt welche mit drin, die meinten GOTO gehöre verbannt

Delphi-Quellcode:

Result := False; 
repeat 
  readln(f, Daten); 
  Daten := Trim(daten); 
  if (Daten <> '')                    // Leerraum 
    or not (daten[1] in ['/', '#'])   // Kommentarzeile 
    or (pos('C:\', daten) = 0) then   // Rootverzeichnis 
  begin
    ...                               // weitere Codes zum Verarbeiten
    showmessage(Daten);               // Zum debuggen 
    If pos('DEBUG', DATEN) > 0 then   // Die erste Verarbeitung... 
    begin 
      RESULT := TRUE; // Wir haben ja etwas gültiges gefunden...    
      ...                             // nochmehr CODE
      {1}
    end; 
    ...                               // nochmals einige IF
  end;
until EOF(f);

Das Daten:=''; (am Anfang) ist nicht nötig, da's ja kurz danach per ReadLn überschrieben wird.

{1} dort könnte man z.B. ein Continue; reinmachen, wenn z.B. die nachfolgenden IFs nicht mehr ausgefühert werden sollen.
Oder ein Break;, wenn die ganze REPEAT-Schleife abgebrochen werden soll.

[add]
ach ja, da das ENDE:
direkt vor dem UNTIL steht, hättest du in deinem Code auch einfach Continue;, statt dem goto ENDE; verwenden können, wäre auf's selbe rausgekommen