Ließt BlockRead aus Datei nich richtig ein?

[teebee]

Zitat von Luckie:

...

• Zurücksetzten

Fällt dir was auf? Du öffnest sie nicht wieder vor dem Lesen.

Doch er öffnet, das Reset öffnet die Datei zum Lesen.

So funktioniert es: Blockread/-write arbeiten mit Speicherbereichen, aus denen bzw. in die geschrieben wird. D.h. man sollte vorher die Buffer-Bereiche reservieren.

Delphi-Quellcode:

Var f:file;
    res:integer;
    s,t: Array[0..127] of Char;
begin
 assignfile(f,'c:\f.txt');
 rewrite(f);
 s:='blob';
 blockwrite(f,s,1);
 closefile(f);
 reset(f);
 blockread(f,t,1,res);
 closefile(f);
 label1.caption:=t;
end;

Gruß, teebee