35 Mal überschreiben

[StefanDP]

"FillBuffer" wird "das" sein, was nacheinander über die datei geschrieben wird!
mach einfach was in der art

Code:

  FillBuffer: array[0..35] of Integer = ($00, $FF, $00, $F0, $0F, $00, $FF, $00, $F0, $0F, $00, $FF, $00, $F0, $0F, $00, $FF, $00, $F0, $0F, $00...)

draus
oder lass dein fillbuffer und änder deine schleife in etwas wie ungefähr:

Delphi-Quellcode:

  for j := 0 to 35 do
  begin
    for i := 1 to n div Buffer do
    begin
      BlockWrite(f, FillBuffer[j mod 5], Buffer);
    end;
  end;

vom prinzip her halt, nicht getestet

stefan