Delphi如何判断哪个程序调用了另一个程序？

Question

我如何确定谁调用了 Showme 程序？

procedure Showme(str:string);
begin
  ShowMessage(str);
end;

procedure btnclick(sender:TObject);
begin
  Showme("test");
end;

procedure btn2click(sender:TObject);
begin
  Showme("test");
end;

编辑:困惑

Showme(654, '654'); // procedure name, string
Showme(654, '564');

Answer 1

没有内置方法可以让一个过程知道哪个过程调用了它。如果您确实需要知道，可以使用堆栈跟踪，但此类数据实际上仅用于调试。对于实际执行，重要的是传递给例程的数据，而不是数据来自哪里。这是结构化编程的基本原则之一。如果两个不同的例程使用相同的数据调用相同的过程，则应该对它们进行相同的处理。

您到底在做什么，需要能够区分？可能有一种更简单的方法来完成它。