我有一文字檔資料如下 name=a name=b1,name=a name=c1,name=b1,name=a name=c2,name=b1,name=a name=c3,name=b1,name=a name=b2,name=a name=c1,name=b2,name=a name=d1,name=c1,name=b2,name=a name=d2,name=c1,name=b2,name=a name=e1,name=d2,name=c1,name=b2,name=a name=b3,name=a name=c1,name=b3,name=a name=c2,name=b3,name=a 而我想將這些資料歸納分析成下圖... a ----b1 ----------c1 ----------c2 ----------c3 ----b2 ----------c1 ----------------d1 ----------------d2 ----------------------e1 ----b3 ----------c1 ----------c2 一直想不出來他的演算法...不知前輩能不能幫忙想想 力求神乎奇技 發表人 - San 於 2004/02/27 14:03:03

------
力求神乎奇技

San 你好    

Var
  sl:Strings;
  tmp : String ;
  i ,j: Integer ;
  Node : TTreeNode;
Begin
  SL := TStringList.Create;
  開啟文字檔      While Not 檔案結束 Do Begin
    Tmp := 讀取一行文字;
    // 'Name=' 沒用到
    Tmp := StringReplace(Tmp,'name=','',[rfReplaceAll, rfIgnoreCase]);
    Sl.CommaText := Text;
    j := 0 ; //Level
    Node := nil ;
    For i:=Sl.Count-1 Downto 0 Do Begin  // 由後往前設定
      Tmp := SL[i];
      用tmp找第 j 階的Text;
      If 找到 Then Begin
        Node := 該節點;
      End Else Begin
        Node := TreeView1.AddChild(node,Tmp);
      End;
      inc(j);
    End;
  End;      End;

祝好運.........

感謝大大的指教...小弟用遞迴解決了... 力求神乎奇技

------
力求神乎奇技