File of Byte - Fehlermeldung

[Thomm]

Weiß jemand, warum ich immer ne Fehlermeldung bekomme ?

E/A-Fehler 32

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var f:File of byte; x:byte  ;
begin
Filecreate('Test.dat');
assignfile(f,'Test.dat');
reset(f);
x:=4;
write(f,x);
closefile(f);

end;

[bernau]

Filecreate erzeugt ein Handle. Dieses muss m.M. nach direkt wieder freigegeben werden, sonst kannst du auf die Datei nicht mit einer anderen Funktion, die nicht dieses Handle nutzt zugreifen.


Ungetestet:

Delphi-Quellcode:

fileclose(Filecreate('Test.dat'));

[DeddyH]

Die Zeile mit FileCreate einfach weglassen. Eine Überprüfung des IO-Result (mit {$I-}) oder ein try-except-Block wären aber auch nicht überflüssig.

[Klaus01]

Guten Morgen,

so sollte es auch gehen:

Delphi-Quellcode:

    x:=4;
    FileHandle := FileCreate('Test.dat');
    if FileHandle >=0 then
      begin
        FileWrite(FileHandle,x,1)
        FileClose(FileHandle);
      end;

Grüße
Klaus

[Thomm]

Wenn man die erste Zeile wegläßt funktioniert es.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var f:File of byte; x:byte  ;
begin
assignfile(f,'Test.dat');
reset(f);
x:=4;
write(f,x);
closefile(f);

end;

[DeddyH]

Sicherlich, nur "Mischen" sollte man Pascal- und API-Aufrufe eben nicht.

[gammatester]

Zitat:

Zitat von Thomm

Weiß jemand, warum ich immer ne Fehlermeldung bekomme ?

E/A-Fehler 32

Ja, weil Du reset(f,1) aufrufen mußt für ein file of byte. Reset(f) bedeutet aus historischen Gründen reset(f,128).

Gammatester

[Thomm]

Reset(f,1) funktioniert nicht

zuviele Parameter

[gammatester]

Zitat:

Zitat von Thomm

Reset(f,1) funktioniert nicht

zuviele Parameter

Stimmt! Den zweiten Parameter gibt's nur für untypisierte Dateien.

Gammatester

[sirius]

Wenn du die Datei erstellen willst, dann nimm statt reset --> rewrite.