因為想要簡化除錯和記錄除錯訊息，平常是自已把程序名稱貼上去，如範例一, 現在希望有方法能取得目前執行的Procedure或function name?
因為delphi除錯時，call stack視窗都能清楚的把目前執行的程序名稱顯示出來，還能得知傳入的參數值，
如果也能用簡單的方法得到傳入的參數值那又更好了。這樣就不用老是自已貼，希望有大大能夠指點一下。謝謝。 <textarea class="delphi" rows="10" cols="60" name="code"> Procdeure CreateObject; begin {$IFDEF Debug} //範例一 memo1.add( '目前執行到的程序名稱是' 'CreateObject');//目前的作法，自已把程序名稱貼上去 //範例二 memo1.add('目前執行到的程序名稱是' NowProcedureName(xx));//在Procedure裏面，有任何函式能取的自已所在的程序名稱嗎? {$ENDIF} //如NowProcedureName目前所在的Procdeure name是"CreateObject" end; function NowProcedureName(xx):string; begin Result:=取的目前執行的程序名稱; end; </textarea>

編輯記錄

善用查詢。之前就有討論過了。

之前的討論其實並沒有正確的結論，那篇我看過了，我看的是http://delphi.ktop.com.tw/board.php?cid=30&fid=70&tid=45410這篇，不知跟大大說的是否為同一篇。其中thomas0728
大大所提的方法是傳回application.exeName，跟我提的程序名稱完全不相同。我想之前沒討論出來，應該是還找不出方法來，也找過國外網站，但目前還沒找到解答，只好再找找了。

我想暗黑前輩指的是
http://delphi.ktop.com.tw/board.php?cid=168&fid=912&tid=89100

请下载JEDI的JCLDebug，use后，可以直接在任意地方使用：
_FILE_, _PROC_, _LINE_等函数现实当前的源代码位置，也可以Print 调用堆栈……

具体使用方法，请参考附带的帮助文档和例子，也可以参考EurokaLog的源代码，EurokaLog也可以获取任意函数名称，代码函数，文件名等信息。

===================引 用 washare 文 章===================
因為想要簡化除錯和記錄除錯訊息，平常是自已把程序名稱貼上去，如範例一, 現在希望有方法能取得目前執行的Procedure或function name?
因為delphi除錯時，call stack視窗都能清楚的把目前執行的程序名稱顯示出來，還能得知傳入的參數值，
如果也能用簡單的方法得到傳入的參數值那又更好了。這樣就不用老是自已貼，希望有大大能夠指點一下。謝謝。

------
超级猛料：http://kingron.delphibbs.com

感謝大家的回覆，謝謝。