Bei ReadLn wird die Bedingung
Daten = chr(13)+Chr(10) nie auftreten, da der Zeilenumbruch nicht zurück geliefert wird, sondern nur ein leerer String. Aber mal zum Wesentlichen:
Delphi-Quellcode:
Result := False;
repeat
readln(f, Daten);
Daten := Trim(daten);
if Daten <> '' then
if not (Daten[1] in ['/', '#']) then
if Pos('C:\', Daten) = 0 then
begin
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;
end;
until EOF(f);
Zitat:
Muss ich nochmal die Grundlagen strukturierter Datenverarbeitung lesen?
Ja
...
...