void ListDelete_Sq(SqList &L, int i, EType &e)
{EType *p, *q;
if (i<1 || i>L.length) EMessage("i值不合法");
p=&(L.elem[i-1]); //p为被删除元素的位置
e = *p; //被删除元素的值赋给e
q=L.elem+L.length-1;// 表尾元素的位置
for (++p;p<=q;++p) *(p-1)=*p; //移动相关元素
--L.length;
} // ListDelete_Sq