Ließt BlockRead aus Datei nich richtig ein?

[WtF]

Hallo Pax,
also hier deine Lösung:

Delphi-Quellcode:

Var f:file; s:string; result:integer;
begin
assignfile(f,'c:\f.txt');
rewrite(f); s:='blob';
blockwrite(f,s,1);
closefile(f);
reset(f);
blockread(f,s,1,result);
closefile(f);
label1.caption:=s;
end.

Mfg

[edit=Luckie]Code-Tags durch Delphi-Tags ersetzt. Mfg, Luckie[/edit]