Entschuldige wenn ich darauf herum reite. Wenn '#EXTM3U' in der ersten Zeile steht, dann reicht es auch, die erste Zeile zu lesen.
Sollte der Text in der 1. oder 2. oder 3. oder... Zeile stehen, dann
Delphi-Quellcode:
var
buffer : array [0..$FFFF] of byte; // macht es etwas schneller
enthaltext3m3u : boolean;
enhaltext3mu:=false;
assignfile(f,Myfile);
reset(f,buffer);
while not(eof(f)) and (mystring<>'#EXTM3U') do
begin
readln(f,mystring);
enthaltext3mu;)mystring='#EXTM3U';
end;
closefile(f);
assignfile(f,myfile);
if enthaltext3mu and not(clear) then
reset(f,buffer)
else
rewrite(f,buffer);
(ohne gewähr!)
Ich hoffe ich hab an alles gedacht.
Gruß
K-H