Einzelnen Beitrag anzeigen

Benutzerbild von freak4fun
freak4fun

Registriert seit: 22. Sep 2004
Ort: Hannover
1.807 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#12

Re: Beliebig große leere Dateien erzeugen

  Alt 17. Jan 2006, 08:41
Hallo ,

Delphi-Quellcode:
fs := TFileStream.Create(Path, fmCreate);
try
  fs.Size := free_size - 100000;
finally
  fs.Free;
end;
Das funktioniert ja wunderbar. Von einer Sekunde auf die andere ist die Platte voll, aber kann ich da jetzt auch irgendwie meine Bits noch auf Null setzen? Wird da wirklich was auf die Platte geschrieben, oder nur irgendwelche Marken gesetzt? Ich wäre dir sehr verbunden, wenn du da noch was zu sagen könntest.

MfG
freak
Christian
IT: Schließen Sie bitte das Fenster. User: Die Tür auch?
i++; // zaehler i um 1 erhoehen
  Mit Zitat antworten Zitat