Blockwrite schreibt zuviel

[malabarista]

Ich habe den Effekt, dass beim Blockwrite, obwohl er im Beispiel nur 35 Bytes schreiben soll, tatsächlich viel mehr schreibt (ca. 4,5 kB).

Code: Alles auswählen

 
var
  buf:array[0..50] of byte;
 
  begin
  ...
  datei:='tmp.dat';
  if fileexists(datei) then deletefile(datei);
  assignfile(f,datei);
  rewrite(f);
  for j:=0 to 40 do
     begin
     buf[j]:=66;
     end;
  Blockwrite(f,buf,35, geschrieben);
  closefile(f);
  end;
 
 

[Michl]

FPC hat eine recht gute Hilfe. Wenn du im Quelltexteditor auf "BlockWrite" gehst und <F1> drückst, dann wird die Hilfe angezeigt: "BlockWrite writes count records from buffer to the file F.A record is a block of bytes with size specified by the Rewrite or Reset statement. "

Gib einfach die Größe beim Rewrite mit, dann sollte das funktionieren:

Code: Alles auswählen

  Rewrite(f, sizeof(Byte)); 

[Warf]

Was du auch machen könntest wäre:

Code: Alles auswählen

type TBuf = array[0..50] of byte; // sind 51 elemente korrekt? die zahl kommt mir etwas krumm vor
var buff: TBuf;
  f: file of TBuf;
 
...
AssignFile(f, Path);
rewrite(f);
...
write(f, buff);
closeFile(f)

[malabarista]

Wenn ich bei rewrite eine 1 angebe, ist alles in Ordnung.

Code: Alles auswählen

 
rewrite(f,1);