Mache ich ja siehe letzter Beitrag..
Delphi-Quellcode:
SList := TStringList.create;
SList.LoadFromFile(Filename); // öffnen
if SList.Strings[0] = '#EXTM3U' then // Bereich auslesen
CheckM3U := true;
SList.Free; // schließen
AssignFile(F, Filename); // öffnen
ohne Array !!
Echt jetzt? Den ganzen File in Memory laden um festzustellen, ob in der 1. Zeile ein Token steht...
Und wenn es eh schon im Speicher ist, dann nicht die List ergänzen und SavetoFile…
omg... Ich gebe auf.
Echt jetzt?
Liest du eigentlich auch was anderes als nur das was dir so gefällt?
Nochmal extra für dich!
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
Den Post hättest du dir gerne sparen können denn er war unnötig.
Möchtest du mich diffamieren oder was bezweckst du damit!
Ohne dein ominöses Array.. Sorry das musste jetzt sein.
Manchmal fällt einem nichts ein deshalb aber versuchen hier jemand zur Schau zu stellen ist auch nicht die feine Art.
Readln(F,Array[i])
Hier kracht es schon.. direkt nach dem öffnen.
Ich hoff Du hast es so nicht geschrieben...
sondern
Zeig mal den Code PLS
Nur eines der Beispiele. .Das du mich für so blöd hältst das ich mein Array so auslegen würde spricht schon für sich.
OK! Ist gut Thema erledigt.. Trotzdem Danke.
gruss