Datei byteweise aufbauen

[omata]

Delphi-Quellcode:

var f:file of byte;
    b:byte;
begin
  assignfile(f, 'test.hex');
  try
    rewrite(f);
    for b:=1 to 255 do
      write(f, b);
  finally
    closefile(f);
  end;
end;