Beliebig große leere Dateien erzeugen

[freak4fun]

Ich erzeuge eine Datei mit:

Delphi-Quellcode:

AssignFile(f, AFileName);
  try
    Rewrite(f);
  finally
    CloseFile(f);
  end;

und schreibe dann mit:

Delphi-Quellcode:

var
  lBuffer: array [0..524287] of Byte;
begin
  ...
  lFileStream.WriteBuffer(lBuffer, SizeOf(lBuffer));

Geht das Schreiben irgendwie schneller?

MfG
freak