Entwickler-Ecke :: Thema anzeigen

BM_90 - Fr 14.12.07 16:09
Titel: "Dateitypensuche"

Ich hab eine procedure mit der man datein eines bestimmten typs suchen und im einer listbox ausgeben kann.
das problem ist nur, dass der rechner zwar sucht, aber nichts ausgibt.
ich hab aber leider keine ahnung wo mein fehler ist...

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

  private
    { Private-Deklarationen }
    procedure suche(ext: str3; pfad: string);
...


procedure tform2.suche(ext: str3; pfad: string);
var sr:tsearchrec;
    r:integer;
begin
  r:=findfirst(pfad+'\*.*', faanyfile, sr);
  while r=0 do
  begin
    if copy(sr.Name, 1, 1) <> '.' then
    begin
      if (sr.Attr <>0) and (fadirectory <>0) then
        suche(ext, pfad + '\' + sr.name)
      else
        if system.Copy(sr.Name, pos('.', sr.Name),4) = '.' + ext then
           form2.ListBox1.Items.Add(pfad + '\' + sr.Name);
    end;
    application.ProcessMessages;
    r:=findnext(sr);
  end;
  findclose(sr);
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
if length(form2.edit1.Text) > 3 then
  begin
    showmessage('Bitte maximal 3 Zeichen für die Erweiterung angeben!');
    exit;
  end;
form2.button3.Enabled:=false;
form2.ListBox1.Clear;
suche(form2.edit1.Text, form2.drivecombobox1.Drive + ':');
form2.button3.Enabled:=true;
end;

Moderiert von Gausi: Delphi-Tags hinzugefügt

GTA-Place - Fr 14.12.07 16:34

Deine "Suchfunktion" ist falsch (muss was mit der Schleife zu tun haben, normalerweise verwendet man eine repeat-until-Schleife). Verwende am Besten diese Funktion hier:
http://www.dsdt.info/tipps/?id=134

Und dann kannste doch direkt nach '*.' + ext suchen. Dann brauchste kein Copy oder ähnliches ;-)

BM_90 - Mo 17.12.07 14:58

Vielen dank leute!!!
hat mir auf jedn fall geholfn. jetz hab ich nur das problem, dass ich nich weiß, wie ich den spaß mit der drivecombobox und dem dateityp auf die reihe kriege. egal was ich machem, mein delphi meckert. brsuche den spaß, um meinen rechner nach bildern zu durchsuchn un muss die sachn, die er mir als suchergebnis anzeigt markiern un in meim programm öffnen könn. das haut nich hin, stehe irgendwie auf der leitung...

vieln dank nochmal, wart mir ne große hilfe

GTA-Place - Mo 17.12.07 17:35

Beispiel:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

r := 0;
while (r <> 0) do
  r := 1;

r := 0
repeat
  r := 1;
until r = 0;

Mal davon abgesehen, dass diese Schleifen sinnlos sind, aber die obere wird nie aufgerufen, wärend die untere mindestens 1x durchlaufen wird. Könnte also sein, dass bei BM_90 die Schleife nie aufgerufen wird.

BM_90 - Di 18.12.07 11:26

Moin!
Ich bräuchte deswegen nochmal Hilfe. Die Dateisuche, haut zwar einwandfrei hin, aber ich möchte den Suchpfad durch eine DriveComboBox angeben. Das ist zwar eigentlich ein nicht allzu großes Problem, aber irgendwie haut das nicht hin. Wenn ich die DriveComboBox benutze, gibt mein Programm die Dateinamen nicht mehr aus. Außerdem möchte ich gerne noch per ComboBox den zu suchenden Dateitypen angeben.
Ich arbeite mit Delphi in dem Ausmaß leider noch nicht allzu lange. Ich glaube langsam, ich habe mir etwas zu viel vorgenommen...

BM_90 - Di 18.12.07 17:40

Martin1966 hat folgendes geschrieben:

Zeig mal wie du den Suchpfad aus der DriveComboBox an deine Funktion übergibst.

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm2.Button3Click(Sender: TObject);
begin
  GetFilesInDirectory(inttostr(form2.DriveComboBox1.ItemIndex), '*.*', Listbox1.Items, true, True);
end;

Moderiert von Tino: Delphi-Tags hinzugefügt

Martin1966 - Mi 19.12.07 14:04

Zuerst mal: benutze doch bitte die Delphi-Tags um deinen Sourcecode hier besser darzustellen. ;-) Danke!

Ich gehe davon aus das der erste Parameter von GetFilesInDirectory das Start-Verzeichnis sein soll, oder?

Hast du dir mal angeschaut was inttostr(form2.DriveComboBox1.ItemIndex) zurückliefert? Ich denke das ist kein korrekter Wert um diesen an GetFilesInDirectory zu übergeben. ;-)

Lg, Martin

Wolle92 - Mi 19.12.07 14:09

Ist einfach, war bei meinem Suchprogramm auch der Fehler:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure tform2.suche(ext: str3; pfad: string);
var sr:tsearchrec;
    r:integer;
begin
  r:=findfirst(pfad+'\*.*', faanyfile, sr);
  while r=0 do
  begin
    if copy(sr.Name, 1, 1) <> '.' then
    begin
      if (sr.Attr and faDirectory) <> 0 then
        suche(ext, pfad + '\' + sr.name)
      else
        if system.Copy(sr.Name, pos('.', sr.Name),4) = '.' + ext then
           form2.ListBox1.Items.Add(pfad + '\' + sr.Name);
    end;
    application.ProcessMessages;
    r:=findnext(sr);
  end;
  findclose(sr);
end;

edit: Oh, darum gehts ja gar nicht mehr...

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!