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.

zusammenfalten · markieren

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 ????

Falsche Reihenfolge der Uses-Anweisungen.

Sind in 2 Units die gleichen Funktionen definiert "gewinnt" die, dessen Eintrag in der Uses-Anweisung zu letzt vorkommt. Will man auf die Andere Zugreifen muss man den Unitnamen davorsetzen.

z.B. greift
Windows.Delete(..) immer auf die in Windows.Pas definierte Delete-Funktion zu auch wenn es woanders auch Delete-Funktionen geben würde und diese in der uses-Anweisung später auftauchen.

oder einfach casten
DeleteFile(PChar(Dir + SearchRec.Name));

@Bernhard

Das mit dem Unitproblem kam mir auch schon in den Sinn.
Dort habe ich aber Windows vorne und SysUtils hinten stehen, demnach müsste er zuerst auf die SysUtils zugreifen.

markieren

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils,

Zitat von Smiley:

@Bernhard

Das mit dem Unitproblem kam mir auch schon in den Sinn.
Dort habe ich aber Windows vorne und SysUtils hinten stehen, demnach müsste er zuerst auf die SysUtils zugreifen.

markieren

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils,

Dann geh mal mit der Maus im Editor auf DeleteFile und lass dir im Hint anzeigen von welcher Unit diese Funktion verwendet wird.

Ansonsten kann man auch noch schreiben:
SysUtils.DeleteFile(....

@Bernhard
Der Hint zeigt SysUtils an, will aber die WindowsUnit benutzen.

Hab den Fehler gefunden:

In der Unit in der ich die Procedure definiert habe, war die Reihenfolge bei uses falsch.
Ich habe fälschlicherweise in der Unit nachgesehen, in der ich die Procedure benutzt habe. (sorry)

Die Hilfe von Dir Bernhard war aber genau das wonach ich gesucht habe, DANKE!

@SirThornberry
Danke auch für die Hilfe mit dem SysUtils.DeleteFile das geht natürlich auch.
Es ging mir aber darum, warum sucht er in der falschen Unit nach dem Programm.

Super schnelle Hilfe, danke an alle.