怎么知道调用某个函数的上级过程的名称

Question

如：procedure A(param: string);
begin
  ...
  Funcction B;
  ...
end;现在想在B函数中使用ShowMessage显示A的名称，要怎么做？

Answer 1

注：Function B分别会在不同的地方调用，调用的过程是未确定的

Answer 2

那就给function加一个参数，谁调用就给这个参数赋值为调用它的函数名称。

Answer 3

To oosmile：我只能改Functiion  B，调用B的任何过程我都没法更改。

Answer 4

procedure A(param: string); 
var
s ：string；
begin 
 
 s ：= B(A: string); end; 

Answer 5

关注，貌似在我的思想之外！不曾想过楼主居然比我的需求还变态！楼主可以看看我这个帖子：
http://topic.csdn.net/u/20080330/00/3ff42f48-cb3b-4eb7-91db-daf6dc0d575f.html

Answer 6

delphi可能是没有办法了
你要是想用做异常记录的话就用Eurekalog C++Builder 中有 __ThrowExceptionName, __ThrowLineNumber, __ThrowFileName……
还有__LINE__ ,__FUNC__。delphi好像没办法。