Datei mit Nullen schreiben

[Oxmyx]

Quick&Dirty-Vorschlag:

Delphi-Quellcode:

procedure WriteNullFile(pcFilename: PChar; iSize: Integer);
var
  pFile: TFileStream;
  c: Char;
  ac: array[0..1023] of Char;
  i: Integer;
begin
  pFile := TFileStream.Create(pcFilename, fmCreate or fmOpenWrite);
  c := #0;
  ZeroMemory(@ac, sizeof(ac));
  while iSize > 1024 do begin
    pFile.WriteBuffer(ac, 1024);
    iSize := iSize - 1024;
  end;
  for i := 0 to iSize-1 do begin
    pFile.WriteBuffer(c, 1);
  end;
  pFile.Free();
end;