Forum: Object-Pascal / Delphi-Language
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
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);