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