Welche uses braucht GetSubDirectories?

[Lion]

Habe aus dem Lazarus Buch folgenden Code um eine Verzeichnisstruktur in einem TreeView aufzubauen. Beider Zeile

Code: Alles auswählen

Result := GetSubDirectories(ADir, L);

schlägt aber Lazarus fehl, mit dem Fehler:

Code: Alles auswählen

Error: Identifier NOT found "GetSubDirectories"

Was mache ich da? Google hilft mir auch nicht weiter.

Code: Alles auswählen

 
Function TForm1.ShowDirectory(Const ADir: String; TV: TTreeView;
                                 ParentNode: TTreeNode): Integer;
  Var I,II: Integer;
         N: TTreeNode;
         L: TStringList;
         D: String;
begin
  L := TStringList.Create;
  try
    Result := GetSubDirectories(ADir, L);
    if result > 0 then
    begin
      TV.Items.BeginUpdate;
      try
        For I := 0 to L.Count-1 do
        begin
          D := L[i];
          N := TV.Items.AddChild(ParentNode,D);
          D := IncludeTrailingPathDelimiter(ADir) + D;
          if ShowDirectory(D,TV,N) > 0 then
            II := 1
          else
            II := 0;
          N.ImageIndex := II;
          N.SelectedIndex := II;
        end;
      finally
      TV.Items.EndUpdate;
    end;
  end;
  finally
    L.free;
  end;
end;  
 

Danke!

[Michl]

Ich konnte keine Function "GetSubDirectories" finden. Es könnte eine Funktion sein, die in dem Buch irgendwo erstellt wurde?!

Ansonsten die Procedure von http://delphi.about.com/od/delphitips20 ... tories.htm in eine Function umgestellt und Result:=list.Count; könnte dem evtl. entsprechen.

PS: Ich nutze gern Cody (als Package installierbar) zur Suche von unbekannten Bezeichnern. Wenn du das nicht installieren willst, kannst du auch auf den unbekannten Bezeichner im Messagewindow rechtsklicken und "Suche Bezeichner" wählen (funktioniert auch, dauert nur länger als Cody).

[theo]

Code: Alles auswählen

uses brain;

Nimm halt irgend eine z.B. die http://delphi.about.com/od/delphitips20 ... tories.htm
und mach eine Funktion draus, wo du den List.Count zurückgibst.
Immer flexibel bleiben.

[Lion]

Wie rufe ich danach die Funktion auf?

Code: Alles auswählen

ShowDirectory('C:\', TreeView1, //??? hier hackts, was übergibt man hier?);

[theo]

Wie rufe ich danach die Funktion auf?

Code: Alles auswählen

ShowDirectory('C:\', TreeView1, //??? hier hackts, was übergibt man hier?);

Ich habe das Buch nicht. Übergib halt einen TreenNode, den es gibt. z.B. TreeView1.Items[0];

Übrigens: Es heiss "es hakt" nicht "es hackt".

[Lion]

Wie rufe ich danach die Funktion auf?

Code: Alles auswählen

ShowDirectory('C:\', TreeView1, //??? hier hackts, was übergibt man hier?);

Ich habe das Buch nicht. Übergib halt einen TreenNode, den es gibt. z.B. TreeView1.Items[0];

Ok, ich habe TreeView1.Items übergeben und es ging nicht...

Übrigens: Es heiss "es hakt" nicht "es hackt".

Danke für den Hinweis!

[theo]

Ok, ich habe TreeView1.Items übergeben und es ging nicht...

Habe ich das gesagt?

[Lion]

Ok, ich habe TreeView1.Items übergeben und es ging nicht...

Habe ich das gesagt?

Ne, ich meine bevor ich die Frage gestellt habe, habe es so versucht, aber es ging nicht. ))

[theo]

Ne, ich meine bevor ich die Frage gestellt habe, habe es so versucht, aber es ging nicht. ))

Na und? Hast du denn meinen Vorschlag auch geprüft?

Code: Alles auswählen

 
TreeView1.Items[0]

[ruewa]

Übrigens: Es heiss "es hakt" nicht "es hackt".

Ohne das brainhaltige Geraufe unterbrechen zu wollen... Übrigens, es "heiss" es "heisst", und ein Komma gehört auch noch rein zwischen "es hakt" und "nicht 'es hackt'". Brauchst Du sowas wirklich?

@Lion: Gegenvorschlag: FindAllDirectories

Das Ding hat nur einen Haken, der unbedingt beachtet werden sollte, analog zu FindAllFiles: Du darfst die Stringliste nicht selbst erstellen, mußt sie aber selbst freigeben. Siehe http://www.lazarusforum.de/viewtopic.php?p=73094#p73094

Gruß Rüdiger

[theo]

Ohne das brainhaltige Geraufe unterbrechen zu wollen...

Welches Geraufe?

Gegenvorschlag: FindAllDirectories

Lion hat doch eher ein Problem mit dem Speisen des Trees und nicht unbedingt mit dem Finden von Dateien.

[Lion]

Na und? Hast du denn meinen Vorschlag auch geprüft?

Code: Alles auswählen

 
TreeView1.Items[0]

Ja, aber es knallt, siehe Screenshot. Weiß jetzt nicht was der Fehler bedeutet.

[theo]

Ja, aber es knallt, siehe Screenshot. Weiß jetzt nicht was der Fehler bedeutet.

Hast du denn zuerst einen Treenode Manuell erstellt? Ich habe ja geschrieben "einen TreenNode, den es gibt"

[Lion]

Ja, aber es knallt, siehe Screenshot. Weiß jetzt nicht was der Fehler bedeutet.

Hast du denn zuerst einen Treenode Manuell erstellt? Ich habe ja geschrieben "einen TreenNode, den es gibt"

Wo soll der erstellt werden und wie? Habe irgendwie keine Ahnung von den Nodes.

Ich habe ein Item erstellt, aber die TreeView bleibt irgendwie leer....

[theo]

Auf den Treeview doppelklicken, dann bekommst du einen Editor.