ايجاد شاخه و زيرشاخه در treeView از روي مسيري كه از openDialog ميگيريم

[Delphi XE2]

سلام

چطور ميشه
C:\Program Files\Adobe\Flash Player
را به شكل درخت نمايش داد

كه شاخه هايي با اسم
Program Files
Adobe
Flash Player
يجاد بشه

[BORHAN TEC]

سلام
میتونید از کدی مثل این استفاده کنید:
procedure TForm1.Button1Click(Sender: TObject);
var
PathString: string;
StringList: TStringList;
PTreeNode: TTreeNode;
I: Integer;
begin
PathString := 'C:\Program Files\Adobe\Flash Player';
PTreeNode := nil;

StringList := TStringList.Create;
with StringList do
begin
Delimiter := '\';
StrictDelimiter := True;
DelimitedText := PathString;

for I := 0 to Pred(StringList.Count) do
begin
PTreeNode := TreeView1.Items.AddChild(PTreeNode, StringList[I]);
end;
end;
end;
موفق باشید...

[Delphi XE2]

سلام استاد

میتونید از کدی مثل این استفاده کنید:
میشه کاری کرد که شاخه ای به اسم C: درس نشه
و فقط اینا
Program Files
Adobe
Flash Player
رو درس کنه

[BORHAN TEC]

سلام
کاری نداره! فقط در اون حلقه به جای اینکه شمارنده رو از عدد 0 شروع کنی باید از عدد 1 شروعش کنی:
for I := 1 to Pred(StringList.Count) do
begin
PTreeNode := TreeView1.Items.AddChild(PTreeNode, StringList[I]);
end;