Ich habe einen ganz einfachen Codeschnipsel benutzt und bekomme beim Compilieren einen Fehler "Inkompatible Typen: 'TFileName und PAnsiChar'" in der Zeile mit DeleteFile(SearchRec.Name);
Sieht so aus, als wollte er die Windowsfunktion benutzen anstatt der Delphifunktion.
Delphi-Quellcode:
procedure DeleteAll(Dir, Files : string);
var
SearchRec : TSearchRec;
begin
if FindFirst(Dir+Files, faAnyFile, SearchRec) = 0 then
begin
DeleteFile(SearchRec.Name);
while FindNext(SearchRec) = 0 do
DeleteFile(Dir + SearchRec.Name);
end;
FindClose(SearchRec);
end;
Beim FindClose kommt dann auch eine entsprechende Meldung.
Was mache ich hier falsch ????