Hi,

ich glaube ich hatte das schonmal im Forum gelesen, kann aber leider nix dazu finden. Und zwar:

Ich möchte gern eine Datei schreiben, die nur Nullen enthält, die Größe der Datei sollte jedoch variabel sein. Wie kann ich das am besten machen?


Danke UC

Quick&Dirty-Vorschlag:

zusammenfalten · markieren

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;