Status CreateBiThrTree(BiThrTree &T) {
// 按先序次序输入二叉树中结点的值（一个字符），.字符表示空树，
// 构造二叉链表表示的二叉树T。
    char ch;
      scanf("%c",&ch);
      if (ch=='.')
        T = NULL;
      else {
            if (!(T = (BiThrNode *)malloc(sizeof(BiThrNode))))
            return ERROR;
            T->data = ch;              // 生成根结点
            T->LTag=Link;
            T->RTag=Link;
                CreateBiThrTree(T->lchild);   // 构造左子树
                CreateBiThrTree(T->rchild);   // 构造右子树
      }
      return OK;
} // CreateBiThrTree


Status PrintElement(TElemType e){
    //打印元素值
    printf("%c\t",e);
    return OK;
}//PrintElement



void PreThreading(BiThrTree p, BiThrTree &pre){
    //先序线索化
    if(p){
        if(!p->lchild){
            p->LTag=Thread;
            p->lchild=pre;
        }
        if(!pre->rchild){
            pre->RTag=Thread;
            pre->rchild=p;
        }
        pre=p;
        if(p->LTag==Link)    PreThreading(p->lchild,pre);
        if(p->RTag==Link)    PreThreading(p->rchild,pre);
    }
}//PreThreading


Status PreOrderThreading(BiThrTree &Thrt, BiThrTree T){
    //先序遍历二叉树T，并将其先序线索化，Thrt指向线索化后的树的头结点。
    BiThrTree pre;
    if (!(Thrt = (BiThrTree)malloc(sizeof(BiThrNode)))) //开辟空间
        exit(OVERFLOW);
    Thrt->LTag=Link;
    Thrt->RTag=Thread;
    Thrt->rchild=Thrt;
    if(!T)    Thrt->lchild=Thrt;
    else{
        Thrt->lchild=T;
        pre=Thrt;
        PreThreading(T,pre);
        pre->RTag=Thread;
        pre->rchild=T;
        Thrt->rchild=pre;
    }
    return OK;
}//PreOrderThreading


Status PreOrderTraverse_Thr(BiThrTree T, Status (*Visit)(TElemType)){
    // T指向头结点，头结点的左链lchild指向根结点，头结点的右链rchild指向
    // 先序遍历的最后一个结点。先序遍历线索二叉树T，
    // 对每个数据元素调用函数Visit。
    BiThrTree p;
    p=T->lchild;
    while (p!=T)  // 空树或遍历结束时，p==T
    {     
        while (p->LTag==Link){
              if (!Visit(p->data))
                return ERROR;     // 访问其左子树为空的结点
              p=p->lchild;
        }
          p=p->rchild;  // p进至其右子树根或访问后继结点
    }
    return OK;
}//PreOrderTraverse_Thr



——————————————————————————————————

因为整个程序还有其他的东西比较长~~，所以复制了比较相关的部分上来。好像线索化还有遍历的时候会有一些问题，但是改不出来TAT。

调试的时候主要是在红字部分出问题。create可能也有问题。。。

谢谢。

。。。

typedef enum PointerTag{Link, Thread};

typedef struct BiThrNode{
    //定义线索树结点类型
    TElemType data;
    struct BiThrNode *lchild,*rchild;
    PointerTag LTag, RTag;
}BiThrNode, *BiThrTree;



忘了上结构体的定义。。

自己解决的话，真是最好不过了

。。。我是忘了贴上来。。没有解决。。。