thank you
- Code: Select all
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ListBox1->Clear();
TTreeNode *CurItem = TreeView1->Selected; // from the selected item to last
AnsiString path;
while(CurItem)
{
if(CurItem->Level==0)
path="c:\\MYDIR";
else
path+="\\"+CurItem->Text;
ListBox1->Items->Add(path);
CurItem = CurItem->GetNext();
}
}
INPUT
- Code: Select all
DIR_1
DIR_2
DIR_3
DIR_4
DIR_5
DIR_6
DIR_7
DIR_8
DIR_9
DIR_10
DIR_11
DIR_12
DIR_13
OUTPUT WRONG
- Code: Select all
c:\MYDIR\DIR_1
c:\MYDIR\DIR_1\DIR_2
c:\MYDIR\DIR_1\DIR_2\DIR_3
c:\MYDIR\DIR_1\DIR_2\DIR_3\DIR_4
c:\MYDIR\DIR_1\DIR_2\DIR_3\DIR_4\DIR_5
c:\MYDIR\DIR_1\DIR_2\DIR_3\DIR_4\DIR_5\DIR_6
c:\MYDIR\DIR_1\DIR_2\DIR_3\DIR_4\DIR_5\DIR_6\DIR_7
c:\MYDIR\DIR_1\DIR_2\DIR_3\DIR_4\DIR_5\DIR_6\DIR_7\DIR_8
c:\MYDIR\DIR_1\DIR_2\DIR_3\DIR_4\DIR_5\DIR_6\DIR_7\DIR_8\DIR_9
c:\MYDIR\DIR_1\DIR_2\DIR_3\DIR_4\DIR_5\DIR_6\DIR_7\DIR_8\DIR_9\DIR_10
c:\MYDIR\DIR_1\DIR_2\DIR_3\DIR_4\DIR_5\DIR_6\DIR_7\DIR_8\DIR_9\DIR_10\DIR_11
c:\MYDIR\DIR_1\DIR_2\DIR_3\DIR_4\DIR_5\DIR_6\DIR_7\DIR_8\DIR_9\DIR_10\DIR_11\DIR_12
c:\MYDIR\DIR_1\DIR_2\DIR_3\DIR_4\DIR_5\DIR_6\DIR_7\DIR_8\DIR_9\DIR_10\DIR_11\DIR_12\DIR_13
OUTPUT CORRECT
- Code: Select all
c:\TEMP\CREA_RDO
c:\TEMP\CREA_RDO\DIR_2
c:\TEMP\CREA_RDO\DIR_2\DIR_3
c:\TEMP\CREA_RDO\DIR_2\DIR_3\DIR_4
c:\TEMP\CREA_RDO\DIR_2\DIR_3\DIR_4\DIR_5
c:\TEMP\CREA_RDO\DIR_2\DIR_3\DIR_4\DIR_5\DIR_6
c:\TEMP\CREA_RDO\DIR_2\DIR_3\DIR_4\DIR_5\DIR_6\DIR_7
c:\TEMP\CREA_RDO\DIR_2\DIR_3\DIR_4\DIR_5\DIR_8
c:\TEMP\CREA_RDO\DIR_2\DIR_3\DIR_4\DIR_5\DIR_8\DIR_9
c:\TEMP\CREA_RDO\DIR_2\DIR_3\DIR_4\DIR_5\DIR_8\DIR_9\DIR_10
c:\TEMP\CREA_RDO\DIR_2\DIR_3\DIR_4\DIR_5\DIR_8\DIR_9\DIR_10\DIR_11
c:\TEMP\CREA_RDO\DIR_2\DIR_3\DIR_4\DIR_5\DIR_8\DIR_9\DIR_10\DIR_11\DIR_12
c:\TEMP\CREA_RDO\DIR_2\DIR_3\DIR_4\DIR_5\DIR_8\DIR_9\DIR_10\DIR_11\DIR_12\DIR_13