AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

TTreeView alles dopelt, warum ?

Ein Thema von mimi · begonnen am 13. Aug 2006 · letzter Beitrag vom 15. Aug 2006
Antwort Antwort
raiguen
(Gast)

n/a Beiträge
 
#1

Re: TTreeView alles dopelt, warum ?

  Alt 15. Aug 2006, 09:43
Schön, dass Du meine Änderungen übernommen hast und sogar daraufhin noch eine Schritt weiter gegangen bist
Nun, es stellt sich due Frage, wie schnell der Verzeichnisbaum aufgebaut werden soll: scheibchen weise, also immer nur die benötigte Struktur oder gleich vollständig mit allen Strukturen!
Im ersten Fall hat man natürlich das '+' auch an den Knoten, die evtl. keine weiteren Kinder haben - gut, ein Klick vergeblich, aber das '+' verschwindet dann ja...
Der zweite Fall prüft, ob evtl mindest ein Unterverzeichnis vorhanden ist...nimmt also etwas Zeit in Anspruch (bei einem Verzeichnis, was tonnenweise nur Dateien und kein UVZ hat, dauert das natürlich...), um evtl das '+' anzuzeigen.. Nun, dann kann ich ja auch gleich die komplette Struktur einlesen Nichts für ungut, wollte halt nur meine Gedanken diesbezüglich kundtun.

Das hier kannst Du noch etwas verbessern:
Delphi-Quellcode:
function TForm2.GetAnderDir(dir:String):boolean;
var
  sr:TSearchRec;
begin
  RESULT := False; //<<--vorbelegen
  if FindFirst(Dir+'\*.*', faAnyFile,SR) = 0 then
    repeat
      RESULT := (sr.Name[1] <> '.') and (sr.Attr and faDirectory > 0)
    until RESULT or (FindNext(sr) <> 0); //<--Abbruch bei RESULT=True oder wenn Verzeichnis komplett durch
  FindClose(sr);
end;
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:29 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz