Ich habe diesen Code, der eine Datei 6 mal überschreibt.
Nun will ich, dass er diese Datei 35 Mal überschreibt.
Was muss ich ändern? (Beim Pfeil "Hier")
Delphi-Quellcode:
procedure EraseFile(Filename: string);
const
Buffer = 1024;
FillBuffer: array[0..5] of Integer = ($00, $FF, $00, $F0, $0F, $00); //<-- Hier
var
arr: array[1..Buffer] of byte;
f: file;
i, j, n: integer;
begin
AssignFile(f, FileName);
Reset(f, 1);
n := FileSize(f);
for j := 0 to 5 do
begin
for i := 1 to n div Buffer do
begin
BlockWrite(f, FillBuffer[j], Buffer);
end;
end;
CloseFile(f);
RenameFile(Filename, ExtractFilepath(Filename)+'$000000.tmp');
DeleteFile(ExtractFilepath(Filename)+'$000000.tmp');
end;