Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#3

AW: sysutils.FileSearch unter Windows2008R2x64

  Alt 15. Apr 2011, 10:44
Ich habe mir gerade den Code von FileSearch angeschaut.
Zitat:
Delphi-Quellcode:
function FileSearch(const Name, DirList: string): string;
  ...
  Result := Name;
  if Result = 'then // nothing to do
    Exit;
  ...
  while True do
  begin
    if FileExists(Result) then Exit;
Falls die Datei also im aktuellen Verzeichnis gefunden wird, kommt lediglich der Dateiname zurück (sofern ich keinen Denkfehler mache). Du könntest nun also überprüfen, ob als Ergebnis ein kompletter Pfad zurückkommt und ggf. das aktuelle Verzeichnis davorschreiben, oder Du verwendest eine eigene Implementierung.

[edit] Zu spät, dafür ausführlicher (*grmpf* immer diese Haarbauern ) [/edit]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat