h20000324-11.htm

对于学习很有帮助

    #0010 end;<br>
    #0011&nbsp;<br>
    #0012 // 注意, 以下兩種寫法又有不同喔<br>
    #0013 // I: procedure Clear_DynamicArray(A:TDynamicInteger);<br>
    #0014 // II: procedure Clear_DynamicArray(var A:TDynamicInteger);<br>
    #0015 procedure Clear_DynamicArray(var A: TDynamicInteger);<br>
    #0016 var<br>
    #0017 I: Integer;<br>
    #0018 begin<br>
    #0019 for I := 0 to High(A) do A[I] := 0;<br>
    #0020 SetLength(A, 20); // 如果是Dynamic Array, 可以這麼寫<br>
    #0021 end;<br>
    #0022&nbsp;<br>
    #0023 procedure TForm1.Button3Click(Sender: TObject);<br>
    #0024 var<br>
    #0025 A: TDynamicInteger;<br>
    #0026 begin<br>
    #0027 SetLength(A, 3);<br>
    #0028 Clear_OpenArray(A);<br>
    #0029 ShowMessage(IntToStr(High(A))); // -1<br>
    #0030 Clear_DynamicArray(A);<br>
    #0031 // 以下這列的結果, 要看 Cleary_DynamicArray的<br>
    #0032 // 參數有沒有寫 var<br>
    #0033 ShowMessage(IntToStr(High(A)));<br>
    #0034 end;<br>
    <br>
    請幫我注意0004的Clear_OpenArray，傳入的是「由整數構成的陣列，不限定陣列的長度」，0015的Clear_DynamicArray的寫法則是「接受一個可變動陣列長度的動態陣列」，若不這樣寫，當場就變成了開放陣列了。<br>
    <br>
    Method and Routine Overloading<br>
    所謂的Method Overloading，簡單地說：一個以上的函式使用相同的函式名稱。這項特性是Object 
    Pascal長久以來一直有人想要卻一直沒有支援的期盼，終於，Delphi 4多了一個保留字：overload 
    ── 相同名稱的兩個函式，只要在宣告時額外加上overload，即使函式的參數型態不同，Delphi也會視呼叫當時傳入的參數資料型態，決定該呼叫哪一個函式。例如以下這則例子：<br>
    <br>
    #0001 // 兩個 Divide 都必須寫overload保留字<br>
    #0002 function Divide(X, Y: Double): Double; overload;<br>
    #0003 begin<br>
    #0004 Result := X / Y;<br>
    #0005 end;<br>
    #0006&nbsp;<br>
    #0007 function Divide(X, Y: Integer):Integer;overload;<br>
    #0008 begin<br>
    #0009 Result := X div Y;<br>
    #0010 end;<br>
    #0011&nbsp;<br>
    #0012 procedure TForm1.Button1Click(Sender: TObject);<br>
    #0013 var<br>
    #0014 a, b, c: integer;<br>
    #0015 i, j, k: Double;<br>
    #0016 begin<br>
    #0017 a := 10;<br>
    #0018 b := 3;<br>
    #0019 i := 10;<br>
    #0020 j := 3;<br>
    #0021 c := Divide(a, b);<br>
    #0022 k := Divide(i, j);<br>
    #0023 ShowMessage(IntToStr(c)); // 3<br>
    #0024 ShowMessage(FloatToStr(k)); // 3.333333...<br>
    #0025 end;<br>
    <br>
    請幫我注意到0002與0007這兩列的Divide函數，函數名稱相同，但傳入的參數型態與函數的傳回值並不相同，即使如此，0023與0024呼叫到Divide時，還是會視當時參數的型態型態，決定該呼叫哪一個Divide。<br>
    很方便，是嗎？有了這項特性，我們就可以寫出應用範圍更廣彈性更大的函數──卻不必為每一種情況各自取一個函數名稱，同時，這項特性也使得函數呼叫的方式更為一致，真是一項早該支援的特性。除了一般的程序與函數，物件的方法也可以採用overload寫法，對於「物件.方法」的撰寫與呼叫，肯定更能提供簡便與彈性。<br>
    overload可不可以應用在不同的兩個單元呢？答案是可以的，但是完全相同的函式宣告不能再寫一次。例如上述程式的0007-0010，可以移到其他單元，原來的單元只要uses這個新的單元，函數呼叫時仍然有Overloading的效果。可是，如果將0007-0010的程式碼移到其他單元卻忘了刪除原來位置的程式，換句話說，兩個單元各有一個完全長得一樣的函式，編譯時Delphi就搞不清楚了，結果自然是無法編譯。當然啦！同一個單元同一個範圍發生這樣事也是不許的，各Overloading的函式，在函式宣告上多少總有些不同。<br>
    <br>
    Default Parameters<br>
    <br>
    過去，函式如果定義了六個參數，那麼，寫作函式呼叫的原始碼時，就一定得乖乖地傳入六個參數，不許多也不許少。若是應用「Default 
    Parameters」，可以只傳入五個（或者更少）。那．．．，那其他沒給的參數怎麼辦？沒關係，函式內部的程式將自動以預設值代入，稍後我會說明其寫法。<br>
    舉例來說，Windows API中有一個蠻好用的函數叫MessageBox，呼叫此函數將出現一通用對話盒，不管是顯示訊息或者徵詢使用者意見，都十分好用。像是以下這道敘述將產生如次頁的對話盒，提醒使用者定期備份資料：<br>
    <br>
    Application.MessageBox('程式要結束了喔! 請記得定期備份資料',<br>
    '訊息', MB_OK + MB_ICONINFORMATION);<br>
    <br>
    除了顯示資料，經由最後一個參數，彈性地搭配各位元旗標，就可以製作出不同按鈕的對話盒，詢問使用者「是」、「否」、「取消」等簡單的問題。<br>
    應用Default Parameters的寫法，我們可以寫一個類似以下的函數：<br>
    <br>
    #0001 function MyMessageBox(Prompt: string;#0002 Caption: string = '訊息';<br>
    #0003 Flag: LongInt = MB_OK +MB_ICONINFORMATION): integer;<br>
    #0004 begin<br>
    #0005 Result := Application.MessageBox(<br>
    #0006 PChar(Prompt), PChar(Caption), Flag);<br>
    #0007 end;<br>
    #0008&nbsp;<br>
    #0009 procedure TForm1.Button1Click(Sender: TObject);<br>
    #0010 begin<br>
    #0011 MyMessageBox('程式要結束了喔! 請記得定期備份資料');<br>
    #0012 end;<br>
    <br>
    如此一來，我們既能有一個完整支援MessageBox的函數，只想顯示文字時，也能有一個精簡型式的函數可用。大家應該明顯看得出來：不必寫成兩個函數。<br>
    觀察上述程式的寫法，其實也蠻容易的，只不過是在定義函數參數時，一併給定初值。<br>
    不過，實際動手去寫時，還是會發現一些限制。繼續這個例子來說，參數的預設值一定得是常數，另外，如果某一個參數開始給預設值，接在後頭的參數也必須用Default 
    Parameters的寫法。為什麼得有這項限制？以上例來說，如果0001-0003我改成：<br>
    <br>
    #0001 function MyMessageBox(Prompt: string;<br>
    #0002 Caption: string = '訊息';<br>
    #0003 Flag: LongInt): integer;<br>
    <br>
    那麼，只傳入兩個參數進去時，Delphi怎麼知道第二個參數該是Captioin或者是「Caption按預設值，第二個參數代入Flag」。Visual 
    Basic對此的解法是在呼叫函數時，一併寫明各參數名稱與值的對應，由於這個緣故，Visual 
    Basic甚至允許參數的次序不同也沒關係，因為，各參數與其值的對應關係在呼叫函式時已一併註明清楚。很可惜的，Delphi 
    4雖有Default Parametets，但還不支援以下的函數呼叫方式：<br>
    <br>
    MyMessageBox('程式要結束了喔! 請記得定期備份資料', Flag = ...);<br>
    <br>
    雖然如此，上述「如果某一個參數開始給預設值，接在後頭的參數也必須用Default 
    Parameters的寫法」這項限制，多少還是可以搭配前一節的Overloading加以彌補：<br>
    <br>
    #0001 function MyMessageBox(Prompt: string;<br>
    #0002 Caption: string = '訊息';<br>
    #0003 Flag: LongInt = MB_OK + MB_ICONINFORMATION): integer; overload;<br>
    #0004 begin<br>
    #0005 Result := Application.MessageBox(<br>
    #0006 PChar(Prompt), PChar(Caption), Flag);<br>
    #0007 end;<br>
    #0008&nbsp;<br>
    #0009 function MyMessageBox(Prompt: string;<br>
    #0010 Flag: LongInt;<br>
    #0011 Caption: string = '訊息'<br>
    #0012 ): integer; overload;<br>
    #0013 begin<br>
    #0014 Result := Application.MessageBox(<br>
    #0015 PChar(Prompt), PChar(Caption), Flag);<br>
    #0016 end;<br>
    #0017&nbsp;<br>
    #0018 procedure TForm1.Button1Click(Sender: TObject);<br>
    #0019 begin<br>
    #0020 MyMessageBox('程式要結束了喔! 請記得定期備份資料');<br>
    #0021 MyMessageBox('別說我沒告訴你喔!', MB_OK);<br>
    #0022 end;<br>
    <br>
    （好煩的程式，一再提醒要記得備份。:p）<br>
    <br>
    請幫我注意這次改寫過的程式0009-0012，我重新調整了各參數的次序，並且分別在兩同名函數都加上了overload保留字，這樣，Delphi就知道該呼叫的是哪一個了。</td>
  </tr>
</tbody>
</table>
</center></div>

<hr align="center" SIZE="1" width="700">

<p align="center" class="ourfont"><span><span><font color="#000000">&nbsp; <a style="color: rgb(0,0,0); text-decoration: none" href="../../soft/network/index.htm">互联网络</font><font color="#FFFFFF"> </font></a><font color="#000000">|</span></span><a href="../../soft/system/index.htm" style="color: rgb(0,0,0); text-decoration: none">系统工具</a><span>|<span> 
<a href="../../soft/tools/index.htm" style="color: rgb(0,0,0); text-decoration: none">实用工具</a> 
| <a href="../../soft/multimedia/index.htm" style="color: rgb(0,0,0); text-decoration: none">媒体工具</a> | <a href="../../soft/image/index.htm" style="color: rgb(0,0,0); text-decoration: none">图形图像</a> 
| <a href="../../soft/game/index.htm" style="color: rgb(0,0,0); text-decoration: none">游戏娱乐</a> 
| </span><a href="../../soft/usesoft/index.htm" style="color: rgb(0,0,0); text-decoration: none">软件<span>使用</a></font><font color="#FFFFFF"> |</font>&nbsp; </span></span></p>

<hr align="center" SIZE="1" width="700">
<font color="#FFE8BB">

<p align="center" class="ourfont"></font><font color="#000000"><span><span>&copy;&nbsp;Copyright 
2000 </span></span>陕西公用计算机互联网信息中心<span><span> 版权所有 </font></p>
</span></span>

<p align="center" class="ourfont"><font color="#000000"><span><span>本站制作维护by <a style="color: rgb(0,0,0)" href="mailto:[e-mail]">HAIYUAN</a></span></span></font></p>

<p align="center" class="ourfont"><font color="#000000"><span><span>电话：[phone] 
8371055 8371049 联系信箱：<a href="mailto:[e-mail]">[e-mail]</a></span></span></font></p>
</body>
</html>