Moin,
@FAlter
Genial! Dass ich da nicht selber drauf gekommen bin. So musste man ja früher auch in der Windowssuche arbeiten, wenn man keinen exakten Dateinamen hatte.
Es funktioniert auch soweit, wenn ich hinter den Dateinamen in der Memo-Komponente zusätzlich den Stern mit eintrage.
Aber ich habe jetzt mal folgendes gemacht:
Delphi-Quellcode:
For i := 0 to Memo1.Lines.Count-1 do
begin
Suchobjekt := Memo1.Lines[i];
If not CheckBox1.Checked then
begin
Suchobjekt := '*' + Suchobjekt + '*';
end;
GetFilesInDirectory(Edit1.Text, Suchobjekt, clbSuchergebnisse.Items, True);
end;
Hab mir gedachtk, das ist etwas benutzerfreundlicher.
Ich habe das Projekt mal im Anhang hochgeladen. Würde mich freuen, wenn ihr euch das mal anschaut und mir Rückmeldungen gebt. Aber erwartet nicht zu viel. Ich hab nur etwas Programmierung in der Schule gehabt.
Das Programm hat auch noch etwas, was mich stört - ich beschreib mal kurz die Funktion des Programmes: Man kann eine Liste von Dateien in das Memo-Feld eintragen und danach wird dann im Wahlverzeichnis gesucht. Die gefundenen Dateien werden aus dem Memo entfernt und in einer Checklistbox aufgeführt und markierte Dateien können in ein Wahlverzeichnis kopiert werden.
So, ich hatte ja danach gefragt, dass man auch Dateien findet, von denen man nicht den exakten Dateinamen angibt. Das Problem ist gelöst. Aber das Programm geht hin und vergleicht am Ende Suchergebnisse mit zu suchenden Objekten, um die gefundenen Objekte aus dem Memo zu entfernen. Wenn ich jetzt aber nur den ungefähren Dateinamen habe, findet er die gefundene Datei aber nicht mehr im Memo - hoffe, dass war jetzt nicht zu umständlich.^^
Also wie gesagt: würd mich über Rückmeldung freuen, aber erwartet nicht zu viel - es ist mein erstes richtiges Programm.
Gruß