Forum: Object-Pascal / Delphi-Language
Delphi
by WtF,
13. Jan 2004
@Luckie : weil der nicht funktionierende code so funktioniert :wink:
Zuerst dachte ich auch das es an der variable result liegt - ist aber nicht so - ich habs extra ausprobiert.
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);
Forum: Object-Pascal / Delphi-Language
Delphi
by WtF,
13. Jan 2004
Hallo Pax,
also hier deine Lösung:
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);