Dateien ohne Inhalt (leere Dateien) finden

[p80286]

Soo groß ist der Unterschied zwischen TFileStream und Blockwrite ja nun auch nicht:

Delphi-Quellcode:

const
  maxbuffsize=1024;
var
  buffer : array [0..maxbufsize-1];
  f : file;


assignfile(f,'Myfile');
reset(f,1);
repeat
  readed:=blockread(f,buffer,maxbuffsize); {bei nicht dyn arrays geht das! }
  if readed>0 then machwasdamit;
until readed<maxbufsizes;
closefile(f);

Delphi-Quellcode:

const
  maxbuffsize=1024;
var
  buffer : array [0..maxbufsize-1];
  f : tfilestream;

f:=tfilestream.Create('Myfile',fmopenread or fmsharedenynone);
repeat
  readed:=f.read(buffer,maxbuffsize); {bei nicht dyn arrays geht das! }
  if readed>0 then machwasdamit;
until readed<maxbufsizes;
f.free;

Ich hab auch lange einen Bogen darum gemacht.

Gruß
K-H

[Mavarik]

Zitat von p80286:

Soo groß ist der Unterschied zwischen TFileStream und Blockwrite ja nun auch nicht:
Gruß
K-H

Unterschied? Beide Aufrufe laufen doch sowieso über die gleiche Kernel32 FileIO Routinen. Ich Denke, wenn ich mir den ASM Code anschaue ist die Blockread Variante noch etwas kürzer...

Mavarik

[himitsu]

Es ist nicht wirklich identisch.

Die alten Pascalfunktionen besitzen teilweise ein eigenes Caching und das ist noch nichtmal annähernd optimal eingestellt.
Die Sache mit dem OOP und der Codevervollständigung braucht man wohl nicht mehr zu erwähnen.
Die alten Funktionen greifen auf gloable Variablen zu. Oder hast du etwa erwartet, daß Reset die Datei wirklich nur ReadOnly öffnet? (dieses wird über eine globale Variable FileMode geregelt, mit sehr netten Nebenwirkungen)

[p80286]

Nicht das wir uns mißverstehen, ich wollte nur sagen, daß für den Codierer sich nicht viel ändert.
Und seit XP SP2 ist die Stream-Variante nie langsamer als das alte Blockread.

Gruß
K-H

[BUG]

Ehrlich gesagt fand ich die "klassischen" Dateioperationen immer etwas unübersichtlich. Streams sind (imho) irgendwie übersichtlicher.

Zitat von Schwedenbitter:

Soll ich das fertige Produkt nochmal hochladen, für den Fall, dass eines fernen Tages jemand dasselbe Problem hat?

Schaden kann es nicht