read und write

[EWeiss]

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

[p80286]

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

[Mavarik]

Zitat von EWeiss:

Möchtest du mich diffamieren oder was bezweckst du damit!

Nein, natürlich nicht - wenn Du es so aufgefasst hast, entschuldige ich mich hierfür...

[EWeiss]

Zitat von Mavarik:

Zitat von EWeiss:

Möchtest du mich diffamieren oder was bezweckst du damit!

Nein, natürlich nicht - wenn Du es so aufgefasst hast, entschuldige ich mich hierfür...

Danke! Und vergessen..

gruss