Q&A

  • 정해진 treeview의 내용을 바꾸고 싶어여
root
  ---a1
     ---a1-b1
     ---a1-b2
  ---a2
     ---a2-b1
     ---a2-b2

위와 같은 트리가 항시 고종 되있습니다

a1 = p1 으로 바꾸고
a1-b1 = p1-o1으로 바꾸고 싶은데 초보라 어렵네요

쉬운 방법점 알려 주세요
1  COMMENTS
  • Profile
    최도선 2006.02.17 18:19
    <!--CodeS-->
    procedure TForm1.Button1Click(Sender: TObject);
    var
      i : integer;
      s : string;
    begin
      for i:=0 to Pred(TreeView1.Items.Count) do begin
        s := TreeView1.Items.Item[i].Text;

        while Pos('a', s) > 0 do
          s[Pos('a', s)] := 'p';
        while Pos('b', s) > 0 do
          s[Pos('b', s)] := 'o';
        TreeView1.Items.Item[i].Text := s;
      end;
    end;

    <!--CodeE-->