@Luckie : weil der nicht funktionierende code so funktioniert
Zuerst dachte ich auch das es an der variable result liegt - ist aber nicht so - ich habs extra ausprobiert.
Code:
procedure TForm1.Button1Click(Sender: TObject);
Var f:file; s:string; r:integer;
begin
assignfile(f,'c:\f.txt');
rewrite(f); s:='blob';
blockwrite(f,s,1);
reset(f);
blockread(f,s,1,r);
closefile(f);
Label1.Caption:=s;
end;
Das eine close kann man nat. weglassen...