in einem TListview Verzeichnisse und Dateien anzeigen ?

[semo]

welchen weg gehst du denn nun?

vielleicht kannst ja auch nen bissl code posten?

[CCRDude]

Wenn es um den einfachsten Weg geht, hier mal noch ein Beispiel der Verwendung von FindFirst etc., das ich gerade bei mir ausgeschnitten habe:

Delphi-Quellcode:

   ec := FindFirst(APath, faAnyFile, sr);
   while ec=0 do begin
      if (sr.Name<>'.') and (sr.Name<>'..') then begin
         sFilename := ExtractFilePath(APath)+sr.Name;
         if (sr.Attr and faDirectory)=0
          then FireFileFoundEvent(sFilename,sr)
           else FireFolderFoundEvent(sFilename,sr);
      end;
      ec := FindNext(sr);
   end;
   SysUtils.FindClose(sr);

Schau einfach auf Zeile 5: das TSearchRec, das FindFirst/FindNext füllen (hier so einfallslos "sr" benannt), beinhaltet ein Feld Attr, in dem Du nur prüfen musst, ob faDirectory dort gesetzt ist oder nicht.

[smart]

Zitat von CCRDude:

Wenn es um den einfachsten Weg geht, hier mal noch ein Beispiel der Verwendung von FindFirst etc., das ich gerade bei mir ausgeschnitten habe.

Nochmals, vielen Dank.

Jetzt läuft es einwandfrei

Gruß
Heike

[smart]

Ach jetzt wo es klappt, fällt mir wieder ein warum ich nicht gleich mit ‚FindFirst/FindNext/FindClose’ gearbeitet habe. Ich hatte an dem gleichen Projekt schon mal vor einigen Monaten gearbeitet und jetzt wieder den gleichen unschönen Fehler.

Ich erzeuge die Fenster(Form) dynamisch also zur Laufzeit und da klappt es nicht.

Beispiel:
Ich erzeuge das erste Fenster(Form) mit z.B. einem ListView drauf und rufe FindFirst klappt wunderbar. Dann erzeuge ich das zweite Fenster und rufe FindFirst auf, und jetzt kommt das komische, beide Fenster mit Listview haben dann auf einmal den gleichen Inhalt vom letzten Aufruf. Obwohl die Fenster und die Listview's unterschiedliche Namen haben.

Gruß
Heike

[CCRDude]

Ich nehme mal an, daß die Fenster unterschiedliche Ordner darstellen sollen, sonst hättest Du das nicht als Fehler beschrieben?

Mein erster Gedanke war jetzt, daß Du das TSearchRec vielleicht global definiert hättest, aber ich denke dann wäre der Inhalt über beide verteilt worden und nicht parallel erschienen, außerdem scheint der Rest ja auch ordentlich nur lokal zu sein.

Wenn es nicht dasselbe Handle (~ TSearchRec) sein kann, käme als nächstes die logisch einfachste Erklärung: Du hast entweder die gleiche Suchmaske oder das gleiche Listview übergeben (schwer zu sagen, ich weiß ja nicht wie Du welche Parameter an die neuen Fenster weitergibst bzw. wo das Auflisten geschieht).
In dem Fall würde ich einfach mal einen Breakpoint jeweils an der FindFirst-Stelle setzen, das Programm bis dorthin laufen lassen, in den Watches die übergebenen Parameter (ListView, um das es geht, Filemaske, etc.) notieren, dann bis zum Breakpoint für das Auflisten im zweiten Fenster laufen lassen, und dort vergleichen. Die Zeiger auf die Listviews sollten dann ja unterschiedlich sein, und ob die Filemaske jeweils die erwartete ist, wirst Du dann auch sehen.

Ansonsten halt noch einen Codeschnipsel posten, vielleicht kann daraus hier auch noch wer was erkennen.