@MKinzler
Ne, Spass beiseite.
Also, nun muss ich es wohl doch mit GOTO lösen:
Delphi-Quellcode:
Result:=False;
Daten:='';
repeat
readln(f, Daten);
Daten:=Trim(daten);
if Daten:=chr(13)+Chr(10) then goto ENDE; // LF
if Daten:='' then goto ENDE; //Leerraum
if daten[1]:='/' then goto ENDE; //Kommentarzeile
Daten[1]:='#'then goto ENDE; //Kommentarzeile
pos('C:\',daten) >0 then goto ENDE; //Rootverzeichnis
//Und hier stehen noch weitere Codes zum Verarbeiten des DATEN Strings
showmessage(Daten); //Zum debuggen
If pos('DEBUG',DATEN) >0 then //Die erste Verarbeitung...
begin
RESULT:=TRUE; //Wir haben ja etwas gültiges gefunden...
//CODE hier
end;
// Hier stehen nochmals einige IF mit entsprechender Verarbeitung
ENDE:
until EOF(f);
Muss ich nochmal die Grundlagen strukturierter Datenverarbeitung lesen?
Verbessere bitte meinen Code. Wie kann ich es eleganter machen?
Ich lerne gerne dazu, bzw. verbessere meinen Programmierstil (Ernst gemeint!)
Und statt IF's CASE zu nehmen dürfte das "GOTO-Problem" auch nicht lösen.