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
