Wohin mit DeleteFile() ?

[alcaeus]

Wie wärs denn hiermit?

Delphi-Quellcode:

procedure loeschen;
var
  Delete   : Boolean;
  tf, temp : TextFile;
  s        : string;
begin
  Delete := False;
  AssignFile(tf, pfad);
  AssignFile(temp, pfad + 'exe');
  try
    ReSet(tf);
    ReWrite(temp);
    while not EOF(tf) do
    begin
      ReadLn(tf, s);
      if (s <> C_SERV_XWIX) and (s <> C_SERV_XWIX_2) then
        WriteLn(temp, s);
    end;
  finally
    if FileSize(fTmp) = FileSize(tf) then //Hiermit stellen wir fest, ob das Kopieren erfolgreich war
      Delete := True;
    CloseFile(fTmp);
    CloseFile(tf);
  end;
  if Delete then   //Hier wird gelöscht
    DeleteFile
end;

Greetz
alcaeus