Delphi-PRAXiS - Delphi Wildcards in Delphi 2006

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Wildcards in Delphi 2006 (https://www.delphipraxis.net/85374-wildcards-delphi-2006-a.html)

Christoph27

29. Jan 2007 22:53

Wildcards in Delphi 2006

Hallo

Ich hab ein Programm in Delphi 7 erstellt und wollte es jetzt unter Turbo Delphi 2006 starten.
Jetzt ist das Problem das es mit den Wildcards nicht mehr klappt. In Delphi 7 ging es noch.
Das Programm soll prüfen ob sich Datein mit der Endung VCR in dem angegebenen Verzeichniss befinden.
Er findet aber nichts. Geb ich statt der Wildcard einen Dateinamen an ist alles gut.

If not FileExists('C:\VCR\*.VCR') then .... Geht nicht aber
If not FileExists('C:\VCR\VER0010.VCR') then .... Das geht

Jetzt bin ich ratlos... Wie gesagt - unter Delphi 7 ging es genau so ohne Probleme.

Bin dankbar für jeden Tip.

Luckie

29. Jan 2007 22:56

Re: Wildcards in Delphi 2006

So viel ich weiß, hat FileExists noch nie WildCards unterstützt. :gruebel:

Hawkeye219

29. Jan 2007 23:07

Re: Wildcards in Delphi 2006

Zitat:

Zitat von Luckie

So viel ich weiß, hat FileExists noch nie WildCards unterstützt.

Das dachte ich auch bis eben...

"Früher" implementierte Borland FileExists durch einen Aufruf der Funktion FileAge, die wiederum FindFirstFile (mit WildCard-Unterstützung) aufruft. Inzwischen greifen sie auf GetFileAttributes (ohne WildCard-Unterstützung) zurück.

Gruß Hawkeye

Luckie

29. Jan 2007 23:16

Re: Wildcards in Delphi 2006

Gut zu wissen. Ergo will man die Wildcard Unterstützung wieder haben, muss man es sich nachprogrammieren, sollte aber kein Problem sein.

Christoph27

30. Jan 2007 17:40

Re: Wildcards in Delphi 2006

Hallo

Vielen Dank.

Hab das jetzt so gelöst

If FileAge('C:\VCR\*.VCR') = -1 then ....

Geht auch :???:

Alle Zeitangaben in WEZ +1. Es ist jetzt 12:02 Uhr.