AW: read und write
Zitat:
Ich sehe jetzt keinen Anlass hier noch was zu ändern. Es tut was es soll.
Delphi-Quellcode:
gruss
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 |
AW: read und write
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:
(ohne gewähr!)
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); Ich hoffe ich hab an alles gedacht. Gruß K-H |
AW: read und write
Zitat:
|
AW: read und write
Zitat:
gruss |
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:42 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz