Löschen einer Datei, inkl. der Daten

[Daniel B]

Code:

[b]procedure[/b] TForm1.Button1Click(Sender: TObject);
[b]const[/b] Buffer = 1024;
[b]var[/b]
  arr: [b]array[/b] [1..Buffer] [b]of[/b] byte;
  fi: [b]file[/b];
  i, n: integer;
[b]begin[/b]
  [b]if[/b] OpenDialog1.Execute [b]then[/b]
  [b]begin[/b]
    AssignFile(fi, OpenDialog1.FileName);
    Reset(fi, 1);
    n := FileSize(fi);
    FillChar(arr, SizeOf(arr), #0);
    [b]for[/b] i := 1 [b]to[/b] n [b]div[/b] Buffer [b]do[/b]
    [b]begin[/b]
      BlockWrite(fi, arr, n [b]mod[/b] Buffer);
    [b]end[/b];
    CloseFile(fi);
    Erase(fi);
  [b]end[/b];
[b]end[/b];

[edit by sakura]Überschrift (Titel) angepasst[/edit]