在一個遞迴要找出一顆樹下的全部葉節點,當OrgFlag=1為葉節點,做一個update
,當OrgFlag=0為子節點,再往下找節點,但找到根之第二個節點符合OrgFlag=1為葉節點,做一個update,就會直接跳離遞迴

<textarea cols="60" rows="10" class="delphi" name="code"> function OrgBonus(Id ,CurrentId, Status, BonusYear, BonusMonth : integer) : integer; var childId,subno : integer; //subno begin subno:=1; Result := 0; childId:=FindOrgChild(Id,subno,BonusYear, BonusMonth);//往下找下一個節點 if (childId = 0) then begin // node 根本沒有任何子節點 所以她是葉節點 if FindOrgFlag(Id, BonusYear, BonusMonth)=1 then begin Orgupdate(Id,CurrentId, Status, BonusYear, BonusMonth); // update end; end else begin while childId <> 0 do begin if FindOrgFlag(childId, BonusYear, BonusMonth)=1 then begin//遇到OrgFlag=1就代表也是葉節點,也做update Orgupdate(childId,CurrentId, Status, BonusYear, BonusMonth); exit; //有問題的部份,當遇到根之第二層符合時,就結束遞迴 end else begin OrgBonus(childId,CurrentId, Status, BonusYear, BonusMonth); inc(subno); childId:=FindOrgChild(Id,subno, BonusYear, BonusMonth);//往下找下一個節點 end; end;//while childId <> 0 end;//if (childId = 0) end; </textarea>

請問是那裡有問題呢?謝謝~

編輯記錄

如果你自己都有辦法把註解註出來，那我想trace程式應該也不難，
自己先拿顆樹塞進去作單步追蹤應該不難找出問題，不要奢望別人幫你debug.

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

因為不確定delphi是否支援遞迴,在程式的16行,在C是用return  
而在delphi內好像只能用exit 或break,因為只要不符合根的第二層符合14行之判斷時,
就會跳出整個遞迴,有單行trace,但找不出為何符合根的第二層就會跳出整個遞迴,sorry,因為對delphi與遞迴都不太熟,麻煩大家了~

編輯記錄

Delphi支援遞迴，如果你需要類似return的機制，就只能先呼叫，再Exit，
Delphi對於回傳值的操作提供了一個alias變數，叫Result，或者是用該函式名稱。
所以你若是需要C中的
return fxxx(a);
在Delphi中就要寫成
result:= fxxx(a);
Exit;

Debug，還是自己來吧，站上有放一本不用錢的Pascal電子書可以參考。
不熟，還是學一下吧，總比事事靠別人的好。

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

編輯記錄

謝謝版主,測出來了,只是不知有沒有更好的做法呢?  版主你所說的電子書是放在那裡呢?謝謝~
<textarea cols="60" rows="10" class="delphi" name="code"> function OrgBonus(Id ,CurrentId, Status, BonusYear, BonusMonth : integer) : integer; var childId,subno : integer; //subno begin subno:=1; Result := 0; childId:=FindOrgChild(Id,subno,BonusYear, BonusMonth);//往下找下一個節點 if (childId = 0) then begin // node 根本沒有任何子節點 所以她是葉節點 if FindOrgFlag(Id, BonusYear, BonusMonth)=1 then begin Orgupdate(Id,CurrentId, Status, BonusYear, BonusMonth); // update end; end else begin while childId <> 0 do begin if FindOrgFlag(childId, BonusYear, BonusMonth)=1 then begin//遇到OrgFlag=1就代表也是葉節點,也做update Orgupdate(childId,CurrentId, Status, BonusYear, BonusMonth); if id=CurrentId then begin inc(subno); childId:=FindOrgChild(Id,subno, BonusYear, BonusMonth); OrgBonus(childId,CurrentId, Status, BonusYear, BonusMonth); end else exit; end else begin OrgBonus(childId,CurrentId, Status, BonusYear, BonusMonth); inc(subno); childId:=FindOrgChild(Id,subno, BonusYear, BonusMonth);//往下找下一個節點 end; end;//while childId <> 0 end;//if (childId = 0) end; </textarea>

編輯記錄

精通PASCAL書一本

發問前請搜尋與查閱相關書籍。

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

謝謝,coffee版主