Forum: Object-Pascal / Delphi-Language
by KodeZwerg,
27. Mär 2021
@Delfiano
Ich möchte nicht aufdringlich sein oder nerven, lediglich nachfragen ob es nun geklappt hat und das Problem gelöst ist.
Forum: Object-Pascal / Delphi-Language
by KodeZwerg,
24. Mär 2021
Genau so wie Du es nun getan hast!!!!
Woher soll denn einer Wissen der nicht Deine Delphi Version zur Verfügung hat was da schiefläuft ?
Da nun klar ist woran es liegt, hier ein neuer Versuch.
Hiermit reiche ich Dir nochmal die Hand in der Hoffnung das Du es mir nicht mehr böse nimmst, Frieden zwischen uns okay?
{$IF CompilerVersion >= 23}
Forum: Object-Pascal / Delphi-Language
by KodeZwerg,
19. Mär 2021
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...
Forum: Object-Pascal / Delphi-Language
by KodeZwerg,
19. Mär 2021
Mir war nicht bewusst das es diese Komponenten für Delphi 3 / 5 gibt.
Ich mag es lieber unter voller Kontrolle zu haben.
Forum: Object-Pascal / Delphi-Language
by KodeZwerg,
19. Mär 2021
Danke für diese Erkenntnis!
Aufbauend auf diesen Gedanken hier ein neues Snippet.
Deklarationen:
edPath.Text = ein gültiger pfad mit \ am ende, beispielsweise "C:\Test\"
edMask.Text = volle Maske, Beispiel "*.mm"
Es wird komplett auf diese veralteten Win3.1 Komponenten verzichtet.
type
Forum: Object-Pascal / Delphi-Language
by KodeZwerg,
19. Mär 2021
Hier wäre meine Lösung zu Post #3, soeben getestet.
Was man hier nicht sieht:
FileListBox1.Mask auf "*.*" gesetzt.
DriveComboBox1 hat Bezug zu DirectoryListBox1.
DirectoryListBox1 hat keinen Bezug zu FileListBox1.
DirectoryListBox1 ein OnChange Event zugewiesen was man hier dem Code entnehmen kann um die FileListBox1 zu füllen.
Edit1.Text ist mit ".Extension" gefüllt.
Beispielsweise...
Forum: Object-Pascal / Delphi-Language
by KodeZwerg,
18. Mär 2021
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)
Forum: Object-Pascal / Delphi-Language
by KodeZwerg,
18. Mär 2021
Die Ergebnis-Liste dann nochmal filtern wäre mein erster Gedanke. (Also simple string fileextension comparision.)