AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Filterfehler bei FileListBox

Ein Thema von Delfiano · begonnen am 18. Mär 2021 · letzter Beitrag vom 16. Apr 2021
Antwort Antwort
Delfiano

Registriert seit: 13. Jul 2020
61 Beiträge
 
#1

Filterfehler bei FileListBox

  Alt 18. Mär 2021, 20:12
Delphi-Version: 5
Wenn ich bei der FileListBox (Delphi 5) als Mask '*.MMP' angebe, werden auch '*.MMPZ' gelistet.

Wie kann ich das vermeiden und bringe Delphi dazu, wirklich nur Dateien der gewünschten Endung zu zeigen und diese nicht eigenmächtig zu erweitern?

Ich hab jetzt keine Lust dazu, dafür extra eine neue Komponente programmieren zu müssen.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.340 Beiträge
 
Delphi 12 Athens
 
#2

AW: Filterfehler bei FileListBox

  Alt 18. Mär 2021, 20:47
Seit vielen Jahren funktioniert es.
MSDN-Library durchsuchenFindFirst bekommt den Filter und liefert nur Passendes.


Aber keine Ahnung wie vor 22 Jahren der Quellcode dieser Komponente aussah.
Da kannst du nur selbst nachsehen.
FileCtrl.pas und vermutlich TFileListBox.ReadFileNames
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: Filterfehler bei FileListBox

  Alt 18. Mär 2021, 21:03
Die Ergebnis-Liste dann nochmal filtern wäre mein erster Gedanke. (Also simple string fileextension comparision.)
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat
Delfiano

Registriert seit: 13. Jul 2020
61 Beiträge
 
#4

AW: Filterfehler bei FileListBox

  Alt 18. Mär 2021, 23:04
Sorry, aber wieso "FindFirst" und nochmal filtern?

FindFirst ist was für SearchRec, aber ich benutze die Komponente TFileListBox und da kann ich den Filter nur auf die ganze FileListBox setzen. Da lässt sich nichts ein zweites Mal filtern, ausser wenn ich's vielleicht in ne normale Listbox kopieren würde.

Das Problem ist, dass Delphi sich nen Dreck drum kümmert, dass man keine Dateien haben will, deren Endung die gewünschte Selektion zwar enthält, aber unerwünscht kackfrech auf mögliche nachfolgende Buchstaben erweitert.

Vergleichbar wäre wohl, wenn ich NUR htm haben will (egal weshalb) und zusätzlich html gezeigt wird. Naja, werd ich wohl nicht drum rum kommen, es doch mit SearchRec (und einer normalen ListBox) machen zu müssen.

Aber Danke für die Rückmeldungen.

Vielleicht stell ich das Projekt für das ich das brauche (falls ich's irgendwie hinbekomme) mal irgendwann rein.

Es geht drum, die komprimierten Dateien mmpz des Musikprogramms LMMS ins lesbare Format mmp zu konvertieren und danach diese Dateien laden und editieren zu können, um z.B. nötigenfalls die Pfade für enthaltene Soundfonts anzupassen. Es gibt nämlich Probleme, sobald man die Musik auf nem anderen Copmputer mit anderen Pfaden abspielen will.

Ich muss also für mein Prog die beiden Endungen sauber unterscheiden (filtern) können.
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Filterfehler bei FileListBox

  Alt 18. Mär 2021, 23:17
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)
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat
Delfiano

Registriert seit: 13. Jul 2020
61 Beiträge
 
#6

AW: Filterfehler bei FileListBox

  Alt 19. Mär 2021, 00:41
Leider nein. Ich hatte es zuvor auch schon mit nachgestelltem Semikolon u.a. probiert.

Derselbe Fehler tritt übrigens auch bei Delphi 7 (die letzte Version die ich habe) immer noch auf und
selbst wenn ich tatsächlich mit FindFirst etc. arbeite, ist es nicht anders.

Wenn ich gezielt versuche, dann dabei aus den Ergebnissen nur MMP (statt auch MMPZ) rauszufiltern, wird gar nichts in die (dann benutzte) ListBox kopiert. Also die von Dir vorgschlagene Doppelfilterung (die eigentlich an dieser Stelle passen würde) nutzt leider auch nix.

Warum ich (nicht nur bei Delphi) immer versuche, etwas mit möglichst alten Programmen zu ermöglichen, hat mehrere Gründe: nue kann ich mir nicht leisten, was Kaufprogramme betrifft und ausserdem möchte ich eine weitgehende Kompatibilität. Die neuen Windowsversionen sind mir ein Gräuel mit all ihren Einschränkungen, wo selbt dann vieles nicht funktioniert, wenn man sich volle Adminrechte zuweist.

Danke nochmal für Deine Hilfe. Aber ich werd wohl versuchen müssen, mir was ganz anderes auszudenken.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.340 Beiträge
 
Delphi 12 Athens
 
#7

AW: Filterfehler bei FileListBox

  Alt 19. Mär 2021, 10:11
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)
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (19. Mär 2021 um 10:20 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Harry Stahl
Harry Stahl

Registriert seit: 2. Apr 2004
Ort: Bonn
2.558 Beiträge
 
Delphi 12 Athens
 
#8

AW: Filterfehler bei FileListBox

  Alt 19. Mär 2021, 22:29
Wenn ich bei der FileListBox (Delphi 5) als Mask '*.MMP' angebe, werden auch '*.MMPZ' gelistet.

Wie kann ich das vermeiden und bringe Delphi dazu, wirklich nur Dateien der gewünschten Endung zu zeigen und diese nicht eigenmächtig zu erweitern?

Ich hab jetzt keine Lust dazu, dafür extra eine neue Komponente programmieren zu müssen.
Also ich habe hier auch noch ein Delphi 5 (Update 1) laufen.

Dort zeigt die

Maske " *.MMP " alle .MMP Dateien an
Maske " *.MMPZ " alle .MMPZ UND alle .MMP Dateien an
Maske " *.MMP* " zeigt ALLE Dateien an.

Du kannst aber auch mit diesen Kompontenten das richtige Ergebnis erhalten, wenn Du in der Maske noch zusätzlich den Pfad angibst, also "D:\*.MMPZ" dann werden nur .MMPZ Dateien angezeigt, aber keine .MMP Dateien.

Sieh dir mal den anliegenden Screenshot an, da ist alles so wie es sein soll.

Übrigens: Im aktuellen Delphi 10.4.2 funktioniert diese (Steinzeit Win 3.1 -) Komponente übrigens von Anfang an, so wie es sein soll...

Delphi-Quellcode:
procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
  FileListBox1.Directory := DirectoryListBox1.Directory ;
  FileListBox2.Directory := DirectoryListBox1.Directory;
  FileListBox3.Directory := DirectoryListBox1.Directory;

  FileListBox1.Mask := DirectoryListBox1.Directory + '\' + Edit1.text;
  FileListBox2.Mask := DirectoryListBox1.Directory + '\' + Edit2.text;
  FileListBox3.Mask := DirectoryListBox1.Directory + '\' + Edit3.text;
end;
Angehängte Grafiken
Dateityp: jpg Maske.jpg (37,1 KB, 12x aufgerufen)

Geändert von Harry Stahl (19. Mär 2021 um 23:09 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:34 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz