Zitat von
axelf98:
Delphi-Quellcode:
if fileexists('C:\Test\test.txt') then
begin
try
deletefile(Pchar('C:\Test\test.txt'));
except
showmessage('Datei nicht gefunden!');
end;
end ELSE
Was soll das? Mal abgesehen von festen Pfaden ...:
- Du überprüfst mit FileExists, ob eine Datei vorhanden ist. Ist die Bedingung true (Datei ist vorhanden), möchtest Du innerhalb der IF-Abfrage (unter bestimmten Umständen) die Meldung "Datei nicht gefunden" ausgeben??
- DeleteFile ist eine Funktion, die keine
Exception auslöst. Die Meldung "Datei nicht gefunden" wird also niemals ausgegeben. Auch nicht, wenn die Datei aus sonstigen Gründen nicht gelöscht werden kann (z.B. fehlende Rechte). Macht aber nichts, da die Fehlermeldung "Datei nicht gefunden" eh quatsch ist ...