frage zu tip datei löschen und..

[scp]

Nimm doch das Beiapiel zum löschen der datei und mach ne Proc drauss:

Delphi-Quellcode:

procedure SafeDeleteFile(Filename : String);
const Buffer = 1024; 
var 
  arr: array [1..Buffer] of byte; 
  fi: file; 
  i, n: integer; 
begin 
  if FileExists(FileName) then 
  begin 
    AssignFile(fi, FileName); 
    Reset(fi, 1); 
    n := FileSize(fi); 
    FillChar(arr, SizeOf(arr), #0); 
    for i := 1 to n div Buffer do 
    begin 
      BlockWrite(fi, arr, n mod Buffer); 
    end; 
    CloseFile(fi); 
    Erase(fi); 
  end; 
end;

Dann änderst du nur die Zeile im anderen Beispiel:

Form1.Memo1.Lines.Add(RootFolder + SR.Name); in:
SafeDeleteFile(RootFolder + SR.Name);