Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: read und write

   
    by DieDolly, 30. Jun 2019
  Vielleicht so?
  
  function IsM3UFile(const AFileName: string): BOOLEAN;
  var
  FileStream: TFileStream;
  LineBuffer: TBytes;
  Encoding: TEncoding;
  Line: string;
  begin
  Result := False;
• Forum: Programmieren allgemein

  AW: read und write

   
    by DieDolly, 30. Jun 2019
  Hier eine kleine Verbesserung basierend auf deinem Ansatz
  
  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);