Filterfehler bei FileListBox

[himitsu]

Zitat von KodeZwerg:

Nur so eine Idee, ich kann es nicht testen da mein Delphi zu aktuell ist.
Der Filter-Mask ein #0 ranbaumeln.
(also per runtime filter auf mask := '*.ext' + #0 )

(sorry hab keine Ahnung wie die genaue bezeichnung ist, aber das wäre mein ansatz)

Das machen die schon intern.
Die FileListBox nimmt den Filter, ersetzt die ; durch #0 und lässt sich dann nacheinander über FindFirst/FindNext mit den filtern die Dateien geben.

Man kann somit auch Verzeichnisse in diesen Filter einbauen. (auch wenn es so eigetnlich garnicht geplant war)
*.*;..\*.* liefert alle Dateien von dem Verzeichnis und des Übergeordneten.

Zitat:

Es werden auch die Dateien mit der Endung mmpz gefunden.

Bei mir nicht. *.dpr zeigte nur dpr und keine dproj
Zumindestens in im aktuellen Windows 10. Die Delphiversion spielt bei FindFirst keine große Rolle. (der einzige Unterschied ist ANSI und Unicode, aber da die ANSI-API den aufruf an die UnicodeAPI nur durchreichet, kommt da vermutlich das Gleiche bei raus)

[Delfiano]

Danke, ihr lieben Menschen. Aber das ändert nichts dran, dass mir das alles nichts bringt.

Mag sein, dass es den DOS-Dateinamen geschuldet ist, aber bei vernünftiger Programmierung hätte eine entsprechende Prüfung enthalten sein müssen.

Ich weiss, dass Borland damals insgesamt sehr schludrig gearbeitet hat und musste entsprechend z.B. die fehlerhaften Units für Multimedia und Multimon für meine Zwecke umstricken und leider auch umbenennen. Für Multimon hatte ich sogar eine Lösung für Delphi 1, die immerhin 2 Monitore erkannt hat.

Aktuell kenne ich wirklich keine andere Möglichkeit, als die Ergebnisse der FileListBox entsprechend der gewünschten Endung(en) in eine normale ListBox umzukopieren. Ob ich mal den Aufwand betreibe, daraus ne Komponente zu machen, weiss ich nicht.

[KodeZwerg]

Was gibt es an meinen Snippets auszusetzen?
Beide Varianten funktionieren und machen das was Du wolltest.

Naja, dann eben nicht.

//edit
Ps: Wenn Du frustriert über Dein in die Jahre gekommenes Delphi bist, niemand hindert Dich auf eine aktuelle Version upzugraden. (Delphi CE = Delphi Rio Professional)
Eine Komponente wird Dir hier wahrscheinlich niemand schreiben. Wenn Dein Code keine Änderungen zulässt hast Du vielleicht was falsch gemacht?
Zu guter letzt, Intercepte doch einfach die original Unit und schon ist alles repariert ohne das Dein Code verändert werden muss.

[Uwe Raabe]

Zitat von Delfiano:

Mag sein, dass es den DOS-Dateinamen geschuldet ist, aber bei vernünftiger Programmierung hätte eine entsprechende Prüfung enthalten sein müssen.

Zumindest ist das Verhalten für Windows dokumentiert: https://docs.microsoft.com/en-us/win...findfirstfilea

Zitat:

The search includes the long and short file names.

Man kann Windows allerdings dazu bewegen, auf diese Short Names zu verzichten - gilt dann aber für alle Anwendungen.

1. Command Prompt als Admin starten
2. fsutil volume list listet die verfügbaren Volumes
3. fsutil 8dot3name query <volume> zeigt den Status des Volumes an
4. fsutil 8dot3name set <volume> 1 schaltet Dos 8.3 Namen ab
5. fsutil 8dot3name set <volume> 0 schaltet Dos 8.3 Namen ein

Zum Weiterlesen: https://docs.microsoft.com/de-de/win...util-8dot3name

[himitsu]

fsutils sagt 0 bei mir
aber wenn ich mich recht erinnere, dann werden seit 'ner Weile 8.3-Namen nur noch erstellt, wenn sie benötigt werden. (z.B. wenn man mit der ANSI-API auf ein Verzeichnis zugreift, oder so)

Das würde dann erklären, warum es zwar an ist, aber es nichts darüber findet.

[Delphi.Narium]

Man sollte bei der Diskussion vielleicht auch mal noch beachten, dass zu Zeiten von Delphi 5 (August 1999) die Dateinamenskonvention 8.3 noch der Normalfall war und die langen Dateinamen nur ein zusätzlicher Aufsatz darauf.

Damals (seit Windows 95) galt halt 8.3 als Default und alles andere war für die Software, die halt schon damit umgehen konnte.

Heute ist es wohl umgekehrt.

Wenn ich auch heute nach wie vor gerne mit Delphi 7 arbeite, so kann ich nicht erwarten, dass die Entwickler des damaligen Delphis bereits alle Erweiterungen korrekt "abarbeiten lassen", die von Microsoft, bei der Weiterentwicklung von Windows, in neueren Versionen implementiert wurden bzw. werden.

Und TFileListBox macht nunmal (bei Delphi 7 - und früher?) intern von den Windowsfunktionen für die Dateisuche gebrauch. (Es ist damit nicht auszuschließen, dass das Ergebnis von der genutzten Windowsversion abhängig ist. Der Versuch von Harry Stahl mit Delphi 5 auf seinem Windows und das abweichende Ergebnis meines Versuches mit Delphi 7 und Windows XP dazu, lassen jedenfalls darauf schließen.) Letztlich wird die Eingabe für die Dateisuchmaske an die Windows-API weitergereicht und das von dieser Gelieferte dann zur Anzeige gebracht (und zwar so, wie geliefert).

Und wenn es da zwischen den Windowsversionen Unterschiede gibt, so kann man das den Entwicklern von Delphi 5 ... nicht vorwerfen, zumal die Änderungen in Windows ja erst nach der Entwicklung von Delphi 5 eingeführt wurden.

[Delfiano]

@KodeZwerg

Zitat:

Was gibt es an meinen Snippets auszusetzen?
Beide Varianten funktionieren und machen das was Du wolltest.

Naja, dann eben nicht.

//edit
Ps: Wenn Du frustriert über Dein in die Jahre gekommenes Delphi bist, niemand hindert Dich auf eine aktuelle Version upzugraden. (Delphi CE = Delphi Rio Professional)
Eine Komponente wird Dir hier wahrscheinlich niemand schreiben. Wenn Dein Code keine Änderungen zulässt hast Du vielleicht was falsch gemacht?
Zu guter letzt, Intercepte doch einfach die original Unit und schon ist alles repariert ohne das Dein Code verändert werden muss.

Ich finde das ziemlich frech. Ich habe nie verlangt, dass mir jemand ne Komponente schreibt. Und ich bin auch nicht über alte Delphi-Versionen frustiert, sondern will gar keine neuen.

Warum Deine Vorschläge (und die von anderen) NICHT funktionieren, ist mittlerweile klar geworden.

Ich entwickle nach wie vor gerne unter XP, denn je neuer die Windows-Version, desto aufgeblähter und fehlerträchtiger ist sie. Mit neuen Windows-Versionen gibt es das von mir geschilderte Problem tatsächlich nicht, sondern da gibt es saubere Trennungen.

[KodeZwerg]

Zitat von Delfiano:

Danke, ihr lieben Menschen. Aber das ändert nichts dran, dass mir das alles nichts bringt.
...
Aktuell kenne ich wirklich keine andere Möglichkeit, als die Ergebnisse der FileListBox entsprechend der gewünschten Endung(en) in eine normale ListBox umzukopieren. Ob ich mal den Aufwand betreibe, daraus ne Komponente zu machen, weiss ich nicht.

Zitat von KodeZwerg:

Was gibt es an meinen Snippets auszusetzen?

Zitat von Delfiano:

Warum Deine Vorschläge (und die von anderen) NICHT funktionieren, ist mittlerweile klar geworden.

Wenn Du doch nur mal sagen würdest was nicht funktioniert... so kann man nicht helfen selbst wenn man es nur gut meint.

Die Vcl Version von mir sollte mit deinem Delphi und auch mit Windows XP klar kommen, ich finde da gerade nichts auffälliges.
Die Winapi Version sollte auch laufen wenn ich Microsoft korrekt interpretiere Minimum supported client = Windows XP [desktop apps | UWP apps] (Nachzulesen hier.)
Man muss halt nur für Dein altes Delphi alles noch an UniCode anpassen oder halt Ansiversionen nutzen und sich wundern das manche Namen merkwürdig aussehen.

Es tut mir leid was auch immer Dich an meiner Aussage aufgewühlt hat.