Einzelnen Beitrag anzeigen

Benutzerbild von JasonDX
JasonDX
(CodeLib-Manager)

Registriert seit: 5. Aug 2004
Ort: München
1.062 Beiträge
 
#3

Re: 50 MB Dummy-Datei erstellen

  Alt 29. Mai 2005, 16:13
Hilfe dürfte hier Delphi-Referenz durchsuchenTStream bzw. Delphi-Referenz durchsuchenTFileStream 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

[Edit] Samplecode Eingefügt
Mike
Passion is no replacement for reason
  Mit Zitat antworten Zitat