Wie soll ich denn beschreiben, was nicht funktioniert?
In der Regel bedeutet es, dass es als Ergebnis die gewünschte Unterscheidung nicht gibt. Dass es schon standardmässig u.a. an der jeweiligen Windows-Version liegt, hatte ich doch mittlerweile heraugefunden.
Allerdings kann ich Dein letztes Beispiel gar nicht erst kompilieren:
Code:
[Fehler] Unit1.pas(40): Undefinierter Bezeichner: 'FindExInfoBasic'
[Fehler] Unit1.pas(40): Inkompatible Typen: 'Cardinal' und 'LongBool'
[Fehler] Unit1.pas(50): Undefinierter Bezeichner: '
Winapi'
[Fataler Fehler] Project1.dpr(5): Verwendete
Unit 'Unit1.pas' kann nicht compiliert werden
40: hFile := FindFirstFileEx(PChar(edPath.Text + edMask.Text), FindExInfoBasic, @FindData, FindExSearchNameMatch, nil, FIND_FIRST_EX_LARGE_FETCH);
50:
Winapi.Windows.FindClose(hFile);
Und was mich aufgeregt habt, lieber Kodezwerg, sind Dein "Naja, dann eben nicht." und Deine Unterstellungen im "//edit"-Teil.
Und wie das hier von Harry Stahl bei ihm unterschiedliche Ergebnisse bringen soll, ist mir unklar.
Code:
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;
Ich hab wirklich extra nochmal den Aufwand betrieben, die Vorschläge genau umzusetzen, obwohl ich gar keine umständlichen Edit-Felder benutze, sondern die Auswertung, wonach gesucht werden soll, viel einfacher vornehme, also entweder in den Click-Anweisungen von Buttons oder Radiobuttons.