我如何确定谁调用了 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');
一个过程没有内置的方法来知道哪个过程调用了它。如果您确实需要知道,可以使用堆栈跟踪,但此类数据实际上仅用于调试。对于实际执行,重要的是传递给例程的数据,而不是数据来自哪里。这是结构化编程的基本原则之一。如果两个不同的例程使用相同的数据调用相同的过程,则应该对它们进行相同的处理。
您到底在做什么,需要能够区分?可能有一种更简单的方法来完成它。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)