read und write

[DieDolly]

Hier eine kleine Verbesserung basierend auf deinem Ansatz

Delphi-Quellcode:

 CheckM3U := False;
 if (FileExists(Filename)) then // LoadFromFile geht in die Hose, wenn die Datei nicht existiert
  begin
   SList := TStringList.Create;
   try
    SList.LoadFromFile(Filename);
  
    CheckM3U := SList.Text.StartsWith(#EXTM3U);
   finally
    SList.Free; // schließen
   end;

   AssignFile(F, Filename); // öffnen
   ...
  end;

[EWeiss]

Danke.. habe meinen Beitrag nochmals editiert.
Denke so geht s
Auch ohne TStringList.

Zitat:

Manche Leute haben halt eine masochistische Ader

Du hast so recht.. schwer warm heute, von daher verzeih mir noch mal meine Herangehensweise.

gruss