150 MB Datei erstellen immer in 256byte schritten?

[Sunlight7]

Jo, no problemo.

Warum ärgert ihr euch immer mit den komischen FileStreams???

Delphi-Quellcode:

procedure TForm1.CreateMyFile;
   const MaxSize=150 * 1024 * 1024;
   var F:File;
       PC:PChar;
       c:Char;
       i:Integer;
   label DoItAgain;
begin
   GetMem(PC, 256);

   AssignFile(F, 'E:\Test.nix');
   ReWrite(F, 1);
DoItAgain:
      For c:='a' to 'z' do begin
         For i:=0 to 256-1 do
            PC[i]:=c;

         BlockWrite(F, PC^, 256);
         If FileSize(F)>=MaxSize then Break;
      end;
      If FileSize(F)<MaxSize then goto DoItAgain;
   CloseFile(F);

   FreeMem(PC);
end;

Geht doch ohne viel einfacher