Rewrite(..., 1); ist per Standard definiert, also wäre es egel,
aber sicher, daß du genau
for lokal:=0 to 127 do Blockwrite(dat,num[lokal],1); geschrieben hast
oder steht im Programm etwas anderes?
Du könntest es ja mal so versuchen, auch wenn ich nicht wüßte was dieses ändern sollte
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var dat : file of byte;
lokal : integer;
begin
AssignFile(dat,'I:\delphi\testContainer\test1.dat');
rewrite(dat);
for lokal:=0 to 127 do Blockwrite(dat,num[lokal],1);
closefile(dat);
end;
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var dat : file of byte;
lokal : integer;
begin
AssignFile(dat,'I:\delphi\testContainer\test1.dat');
rewrite(dat);
Blockwrite(dat,num[0],128);
closefile(dat);
end;
Blos mal aus Interesse: was/wo ist denn da eine sehr große Datei?
(sehr groß fängt für mich so bei GB an)