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