50 MB Dummy-Datei erstellen

[derpepe]

Hallo,

wie kann ich eine 50 MB große Datei auf die Schnelle erstellen?
Mein Ansatz war:

Delphi-Quellcode:

var f:textfile;
i:integer;
assignfile(f,'dummy.txt');
rewrite(f);
for i:=0 to 50*1024*1024 do write(f,' ');
closefile(f);

Aber das dauer ja eeeeewiiiigggg!!
Bessere Vorschläge?? (ich bin mir sicher, dass ihr bessere Vorschläge habt :dp: )

[Meflin]

Moin,

Suche -> http://www.delphipraxis.net/internal...ct.php?t=49233 ;)

[JasonDX]

Hilfe dürfte hier TStream bzw. TFileStream bringen
Einfach die Eigenschaft Size setzen (dürfte afaik gehn, und du brauchst selber nichts reinzuschreiben (nachdems nur ne Dummy-Datei is)) ;)

Delphi-Quellcode:

with TFileStream.Create('DummyFile.txt', fmCreate) do begin
  Size := 50 * 1024 * 1024; //Bytes
  Free;
end;

Kürzer gehts nicht :D

[Edit] Samplecode Eingefügt

[derpepe]

Danke ;-)