Somebody :: [Delphi] 資料結構-遞迴(Recursion)

views: 3048 times

Mobile:http://fall-leaf.net/blog/somebody/m/19

何謂遞迴
簡單的說:函數之中有呼叫自身函數的方式稱之.
定義遞迴:一個遞迴函數必定具備以下兩種特性:
1.具有終止遞迴呼叫的條件.
2.一個可以將問題逐次簡化的處理,最後問題將簡化至符合終止遞迴的條件.

[一個最簡單的遞迴範例]用遞迴函數來計算出N階乘的值(N!)
// N階乘的值

function NClass(N:integer):integer;
begin
if N<=1 then Result:=N // 1.具有終止遞迴呼叫的條件.
else Result:=N*NClass(N-1) // 2.一個可以將問題逐次簡化的處理
end;

使用舉例:

procedure TForm1.Button1Click(Sender: TObject);
begin
caption:=inttostr(NClass(6));
end;

最後Form1的caption會填入720(6*5*4*3*2*1=720)

[第二個範例:列出子目錄]用遞迴函數來列出指定資料夾內所有的子目錄名稱
// 列出子目錄

procedure Dirs(path:string);
var f:tSearchrec;
begin
form1.Memo1.Lines.add(path); // 將子目錄列在Memo1上
if FindFirst(path+'*.*',$0000001F,f)=0 then // 若有找到目錄名稱
begin
   repeat
    if (trim(f.name)<>'.') and (trim(f.name)<>'..') and (f.Attr=faDirectory) then // 找到正式的目錄名稱後再呼叫自身函數
    Dirs(path+f.name+'\'); // 將下一曾的子目錄名稱傳入自身函數中(問題簡化)
   until findnext(f)<>0; // 找下一個目錄名稱
   FindClose(f); // 關掉FindFirst
end;
end;

使用舉例:

procedure TForm1.Button2Click(Sender: TObject);
begin
Dirs('C:\');
end;

創用 CC 授權

本創作適用姓名標示-非商業性-禁止改作 3.0 創用 CC 授權，台灣並依循所適用的授權條款。

Bookmarks: HEMiDEMi Technorati Del.icio.us Digg funP Yahoo! Furl

相關文章

[Delphi]國外蒐集網站,Comments: 0 | Trackbacks: 0 | 2008/12/29 19:12
[Delphi] Delphi 快速鍵大全,Comments: 0 | Trackbacks: 0 | 2008/12/29 19:12
[Delph] QQExport+ v1.11.28,Comments: 0 | Trackbacks: 0 | 2008/12/15 11:12

« 2010/09 »
日	一	二	三	四	五	六
			1	2	3	4
5	6	7	8	9	10	11
12	13	14	15	16	17	18
19	20	21	22	23	24	25
26	27	28	29	30

« 2010/09 »

日

一

二

三

四

五

六

[Delphi] 資料結構-遞迴(Recursion)

Bookmarks

Leave your greetings here.

Category

Recent Trackbacks

Tags

Archive

Recent Guestbooks

Calendar

Recent Articles

Somebody - 최근 글

Recent comments

Somebody - 最新評論

Bookmarks