Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: eigene Ordnerstruktur in TreeView

    Delphi
    by marabu, 30. Jan 2008
  Das hatte ich nicht bedacht, aber jetzt:
  
  
  function PathToNode(s: TStrings; tn: TTreeNodes; path: string): TTreeNode;
  var
  dir, subDir: string;
  index: Integer;
  begin
  subDir := ExtractFileName(path);
  dir := ExtractFileDir(path);
• Forum: Object-Pascal / Delphi-Language

  Re: eigene Ordnerstruktur in TreeView

    Delphi
    by marabu, 30. Jan 2008
  Hallo Philippe,
  
  es wäre natürlich toll, wenn die Pfadnamen in der StringList bereits in dem Format vorliegen würden, welches die TreeView selbst als Textrepräsentation kennt, aber ausgehend von deinen Beispieldaten kannst du so vorgehen:
  
  
  function PathToNode(s: string; tn: TTreeNodes): TTreeNode;
  var
  dir, subDir: string;
  begin
  dir := ExcludeTrailingPathDelimiter(s);