有附執行訊息之二圖---二個圖是在左右邊 多謝觀看及提供意見     CODE 如下:<-----此例運用Sparse Matrix 請各位先進不吝指教 ;下面尚有指出錯誤之行數 void Turn_Sparse_Matrix(int Now,Nodes_Head&PtrHead){ int Base[3]={0,0,0}; int Entry_Info[3]; int Dim=0; if(Matrix_Dim[Now][Row]>Matrix_Dim[Now][Col])Dim=Matrix_Dim[Now][Row]; else Dim=Matrix_Dim[Now][Col]; PtrHead.Head=new Nodes(false,Base); if(Dim==0){PtrHead.Head->right=PtrHead.Head;ShowMessage("OVER");return;} Nodes** Nodes_Start=new Nodes*[Dim]; for(int i=0;iCurrent_Row){ Left_End->right=Nodes_Start[Current_Row]; Current_Row=Matrix_Entry[Now][i][Row]; Left_End=Nodes_Start[Current_Row]; } Entry_Info[Row]=Matrix_Entry[Now][i][Row]; Entry_Info[Col]=Matrix_Entry[Now][i][Col]; Entry_Info[Value]=Matrix_Entry[Now][i][Value]; Left_End=Left_End->right=new Nodes(false,Entry_Info); Nodes_Start[Matrix_Entry[Now][i][Col]]->next=Nodes_Start [Matrix_Entry[Now][i][Col]]->next->down=Left_End; //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ //會在此行跑第一次時即有誤 程式當掉.... //換句話說此LOOP也只跑過一次..... } Left_End->right=Nodes_Start[Current_Row]; for(int i=0;inext->down=Nodes_Start[i]; for(int i=0;inext=Nodes_Start[i+1]; Nodes_Start[Dim-1]->next=PtrHead.Head; PtrHead.Head->right=Nodes_Start[0]; delete[]Nodes_Start; } Nodes::Nodes(bool Bor,int*Data) { bor=Bor; for(int i=0;i<=2;i++) data[i]=Data[i]; if(!Bor){data[2]=0;} } keep On 發表人 - EagleLegend 於 2004/11/22 15:35:25

------
keep On

程式碼都亂掉了 麻煩看一下版規吧http://delphi.ktop.com.tw/topic.php?topic_id=47262 可能的話，最好放上完整的程式碼...

EagleLegend: 在這行中Nodes_Start[Matrix_Entry[Now][i][Col]]中斷, 在看看是不是有哪一各陣列超過大小.或是陣列裡面的資料是空ㄉ.

不好意思 我忽略了版規 抱歉 過二天 我把問題整理一下 再多多改良 再放上來 向大家請益 謝謝提醒 keep On

------
keep On