dateien suchen

Beiträge: 287 XP SP2 Delphi 7

jeder müsste doch die suchfunktion von windows xp kennen oder?
ordner offnen.
dann auf suchen etc.
wie kann ich diese Suchfunktion abgespeckt nach bauen?
halt nur mit button suchen
und mit ordnerwahl.
ambesten mit shelltreeview.
wie mache ich das?

edit1:wenn ich z.b. festplatte C wähle soll der die ganze festplatte C durchsuchen.
wenn ich nen neuen orgner in C wähle doll alles im ordner inklusive unterordner durchsucht werden.

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Findfirst, Findnext

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

Beiträge: 287 XP SP2 Delphi 7

kannste bitte n beispiel geben??
sonst kann ich nix damit anfangen

Dunkel · Beiträge: 682 Mac OS X Snow Leopard Xcode 3.1

110022 hat folgendes geschrieben:

kannste bitte n beispiel geben??
sonst kann ich nix damit anfangen

Eigeninitiative?
Aber ich will mal nicht so sein, ich hab Dir da mal was rausgesucht: Suche in: Delphi-Forum, Delphi-Library

FINDFIRST FINDNEXT :wink:

_________________
Ich streite einsam mich mit dieser Oberflächenwelt
Gutes sei ein löblich Brot von dem ich zehre - bis zum Tod [Das Ich - Im Ich]

Beiträge: 287 XP SP2 Delphi 7

in was soll ich die gefundenen dateien denn anzeigen lassen?

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Na wenn Du das nicht weisst ListBox, Edits, Memo etc. :wink:

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

Beiträge: 287 XP SP2 Delphi 7

listbox finde ich zu billig, edit und memo auch.
mit was kann man dieses teil bei der windows suche vergleichen?

edit1:Darf ich hier Werbung für einen anderen treat von mir machen?

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

110022 hat folgendes geschrieben:

listbox finde ich zu billig, edit und memo auch.
mit was kann man dieses teil bei der windows suche vergleichen?

Ist ein ListView.

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

LorenzS · Beiträge: 128 MS-DOS, WIN 7, WIN 10 BP7.0, D3, D5

110022 ,kann es sein das du dauernd das selbe fragst, ich hatte dir bereits ein beispiel, mit 2 listboxen gegeben, und billige Komponente ist das nicht.
Du Willst immer alles zu kompliziert machen.

Beiträge: 287 XP SP2 Delphi 7

mit billig meine ich dass das nur der dateiname steht

LorenzS · Beiträge: 128 MS-DOS, WIN 7, WIN 10 BP7.0, D3, D5

ShellTreeView kann auch nicht alles. es nur eien Komponente wie jede andere auch.

aus (eigenes "Fenster")

LorenzSVerfasst am: Gestern um 18:47 hat folgendes geschrieben:

Füllt die listbox

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

const path='c:\'; 
procedure TForm1.Button1Click(Sender: TObject); 
var  Found     : integer; 
     SearchRec : TSearchRec; 
begin 
 Found := FindFirst(path+'*.*', 255, SearchRec); 
 while Found = 0 do 
 begin 
  listbox1.items.add(path+SearchRec.Name); 
  Found := FindNext(SearchRec); 
 end; 
 FindClose(SearchRec); 
end;

und bei doppelklick die date in 2. Listbox anzeigen

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.ListBox1DblClick(Sender: TObject);//Listbox  OnDblClick Ereignis 
begin 
 listbox2.Clear; 
 listbox2.Items.LoadFromFile(listbox1.items.Strings[listbox1.ItemIndex]); 
end;

Zuletzt bearbeitet von LorenzS am Sa 22.12.07 19:06, insgesamt 1-mal bearbeitet

Beiträge: 287 XP SP2 Delphi 7

@LorenzS:
Dein Vorschlag klappt wunderbar, musste nur etwas ändern
Das Problem ist bewältigt

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme