Probleme mit "SearchRec"s

[qb-tim]

Here ist ein Auszug aus einem meiner Programme.

Noch vorab: Es gibt 4 Ebenen: 1. - 3. Ebene NUR Ordner und 4. Ebene NUR ".dat"-Dateien

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
var SR : TSearchrec;
begin
  if FindFirst('*.*', faAnyFile, SR) = 0 then
    begin
      repeat
        // handelt es sich um ein Verzeichnis?
        if (SR.Attr and faDirectory) = faDirectory then
        begin
          if (SR.Name <> '.') and
             (SR.Name <> '..') then
          ComboBox1.Items.Add(SR.Name);
        end;
      until
        FindNext(SR) <> 0;
      FindClose(SR); // wird benötigt um den Speicher wieder freizugeben
    end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var SR : TSearchrec;
    tmp : String;
begin
  tmp := ComboBox1.Items[ComboBox1.ItemIndex] + '\*.*';
  if FindFirst(tmp, faAnyFile, SR) = 0 then
    begin
      repeat
        // handelt es sich um ein Verzeichnis?
        if (SR.Attr and faDirectory) = faDirectory then
        begin
          if (SR.Name <> '.') and
             (SR.Name <> '..') then
          ComboBox2.Items.Add(SR.Name);
        end;
      until
        FindNext(SR) <> 0;
      FindClose(SR); // wird benötigt um den Speicher wieder freizugeben
    end;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
var SR : TSearchrec;
    tmp : String;
begin
  tmp := ComboBox1.Items[ComboBox1.ItemIndex] + '\' + ComboBox2.Items[ComboBox2.ItemIndex] + '\*.*';
  if FindFirst(tmp, faAnyFile, SR) = 0 then
    begin
      repeat
        // handelt es sich um ein Verzeichnis?
        if (SR.Attr and faDirectory) = faDirectory then
        begin
          if (SR.Name <> '.') and
             (SR.Name <> '..') then
          ComboBox3.Items.Add(SR.Name);
        end;
      until
        FindNext(SR) <> 0;
      FindClose(SR); // wird benötigt um den Speicher wieder freizugeben
    end;
end;

In der ersten Prozedur (OnActivate) funktioniert die auflistung der Vorhandenen Ordner im Ordner der exe-Datei.

Leider passiert bei den anderen zweien nichts. Es werden keine Ordner aufgelistet!

[Angel4585]

probier mal anstatt combobox.Items[combobox.itemindex], combobox.text zu nehmen ;)

[qb-tim]

Ahh! Wieso habe ich das nicht gemerkt?

"TComboBox.Items[TComboBox.ItemIndex]" ist der Eintrag, der gerade markiert ist und "TComboBox.Text" ist der Text, der gerade angezeigt wird...

richtig? :-D

[himitsu]

Zitat:

Zitat von qb-tim

In der ersten Prozedur (OnActivate) funktioniert die auflistung der Vorhandenen Ordner im Ordner der exe-Datei.

Leider passiert bei den anderen zweien nichts. Es werden keine Ordner aufgelistet!

Hast du mal geprüft, was in den tmp-Variablen steht?


[add]

Zitat:

Zitat von qb-tim

richtig? :-D

Ja, aber wenn die ComboBox nur auswählbar ist ud somit immer ein Eintrag ausgewählt ist, dann sollte deinen auch funktionieren.

[SirThornberry]

warum suchst du eigentlich nach "*.*"? willst du nur dateinamen aufgelistet bekommen in denen ein "." enthalten ist? Wenn dem nicht so ist und du alles aufgelistet bekommen willst solltest du nach "*" suchen

[qb-tim]

Ich habe mein Programm korrigiert:

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject); 
var SR : TSearchrec; 
begin 
  if FindFirst('*.*', faAnyFile, SR) = 0 then 
    begin 
      repeat 
        // handelt es sich um ein Verzeichnis? 
        if (SR.Attr and faDirectory) = faDirectory then 
        begin 
          if (SR.Name <> '.') and 
             (SR.Name <> '..') then 
          ComboBox1.Items.Add(SR.Name); 
        end; 
      until 
        FindNext(SR) <> 0; 
      FindClose(SR); // wird benötigt um den Speicher wieder freizugeben 
    end; 
end; 

procedure TForm1.ComboBox1Change(Sender: TObject); 
var SR : TSearchrec; 
    tmp : String; 
begin 
  tmp := ComboBox1.Text + '\*.*'; 
  if FindFirst(tmp, faAnyFile, SR) = 0 then 
    begin 
      repeat 
        // handelt es sich um ein Verzeichnis? 
        if (SR.Attr and faDirectory) = faDirectory then 
        begin 
          if (SR.Name <> '.') and 
             (SR.Name <> '..') then 
          ComboBox2.Items.Add(SR.Name); 
        end; 
      until 
        FindNext(SR) <> 0; 
      FindClose(SR); // wird benötigt um den Speicher wieder freizugeben 
    end; 
end; 

procedure TForm1.ComboBox2Change(Sender: TObject); 
var SR : TSearchrec; 
    tmp : String; 
begin 
  tmp := ComboBox1.Text + '\' + ComboBox2.Text + '\*.*'; 
  if FindFirst(tmp, faAnyFile, SR) = 0 then 
    begin 
      repeat 
        // handelt es sich um ein Verzeichnis? 
        if (SR.Attr and faDirectory) = faDirectory then 
        begin 
          if (SR.Name <> '.') and 
             (SR.Name <> '..') then 
          ComboBox3.Items.Add(SR.Name); 
        end; 
      until 
        FindNext(SR) <> 0; 
      FindClose(SR); // wird benötigt um den Speicher wieder freizugeben 
    end; 
end;

Jetzt funktioniert es.

@ SirThornberry:

Mann kann mit "*.*" jede Datei und jeden Ordner suchen. Ein Ordner hat zwar nicht eine "extention" aber es geht eben so. (Wurde mir gesagt). Und es funktioniert! :zwinker:

[himitsu]

Zitat:

Zitat von qb-tim

Mann kann mit "*.*" jede Datei und jeden Ordner suchen. Ein Ordner hat zwar nicht eine "extention" aber es geht eben so. (Wurde mir gesagt). Und es funktioniert! :zwinker:

Klar funktioniert es, denn es wird nach allem mit beliebigen Zeichen vor und nach dem Punkt gesucht ... und kein Zeichen (keine Extension vorhanden), zählt auch mit dazu.

Und ich finde es ist so (mit *.*) auch effektiver, denn wenn eh nichts anderes im zu durchsuchenden Verzeichnis enthalten ist, braucht man Windows (die WinAPI) nicht auch noch "sinnlos" eine Namensprüfung machen zu lassen.

[qb-tim]

Ich glaube das kommt daher, dass im uralten DOS (noch vor Windows 3.1) für Ordner die extention ".dir" benutzt wurde.

Stimmt das, oder täusche ich mich? :angel2: