Dateien erstellen

[Chewie]

Damit eine Datei 1 GB groß ist, muss der Inhalt 1 GB belegen.
Am einfachsten, du schreibst immer die gleiche Zahl hinein.
Du nimmmst einen Filestream und los gehts:

Delphi-Quellcode:

var
  F: TFileStream;
  wrBytes, Size: LongWord;
  buf: Byte;
const
  BytesPerBlock = 1024;
begin
  F := TFileStream.Create('c:\test.txt', fmCreate or fmShareExclusive);
  try
    buf := 0;
    Size := 1024 * 1024;
    wrBytes := 0;
    while wrBytes + BytesPerBlock <= Size do
    begin
      F.Write(buf, BytesPerBlock);
      Inc(wrBytes, BytesPerBlock);
    end;
    if wrBytes + BytesPerBlock < Size then
      F.Write(buf, Size - wrBytes);
  finally
    F.Free;
  end;
end;

Edit: Ein kleiner Fehler korrigiert