read und write

[EWeiss]

Zitat:

Vielleicht so?

Das Thema ist doch erledigt
Ich sehe jetzt keinen Anlass hier noch was zu ändern.
Es tut was es soll.

Delphi-Quellcode:

    AssignFile(F, Filename); // öffnen
      Reset(F); // Zeilenanfang
      while not Eof(F) do
      begin
        ReadLn(F, Buffer);
        if Buffer = '#EXTM3U' then // gefunden 
        begin
          CheckM3U := true;
          break; // raus hier
        end;
      end;
      CloseFile(F); // schließen

gruss