150 MB Datei erstellen immer in 256byte schritten?

[Christian Seehase]

Moin Zusammen,

wie wär's denn mit:

Delphi-Quellcode:

var
  sBuf   : string;
  i      : integer;

begin
  fs := TFileStream.Create(....);
  try
    while true do begin
      for i := 1 to 255 do begin
        sBuf := StringOfChar(chr(i),256);
        fs.Write(sBuf[1],256);
        if fs.Size = (1024*1024*150) then exit;
      end;
    end;
  finally
    FreeAndNil(fs);
  end;
end;