"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