Forum: Object-Pascal / Delphi-Language
Delphi
by Koller,
17. Okt 2006
:duck: Worauf willst du hinaus?
Da gibts doch sicher eine Funktion für, um die Dateigröße zu ermitteln, oder?
Forum: Object-Pascal / Delphi-Language
Delphi
by Koller,
17. Okt 2006
Wo steht denn, dass ich nur dreimal überschreibe?
Also soll ich die Größe der Datei in Bytes ermitteln und die gleiche Anzahl oder etwas mehr in die Datei schreiben?
Forum: Object-Pascal / Delphi-Language
Delphi
by Koller,
17. Okt 2006
procedure TForm1.OverwriteFile(Filename: string; number: integer;);
var stream: TFilestream; i,zahl: integer;
begin
stream := TFilestream.Create(filename,fmOpenWrite);
randomize;
for i := 1 to number do
begin
zahl := random(1);
stream.Write(zahl,SizeOf(zahl))
end;