35 Mal überschreiben

[Vjay]

Delphi-Quellcode:

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

Ähm, sagt mal Buffer hin oder her... Müsste dan icht nen Seek an den Dateianfang rein?