ListBox-/View mit Dateien und Verzeichnissen anzeigen

[Jim Carrey]

Mein aktueller Code ist

Delphi-Quellcode:

Node := GtroCheckShellTreeView1.Items[0].getFirstChild;
while Node <> nil do
 begin
  // Pruefen, ob aktueller Node im Memo steht. Wenn ja, Node anchecken
  if Memo1.Lines.IndexOf(Node.Parent.Text + '\' + Node.Text) > -1 then
   GtroCheckShellTreeView1.SetNodeChecked(Node, True);
  
  Node := Node.GetNext;
 end;