我需要找到一种方法来识别调用类中当前函数或过程的位置。如果结果是内存位置或单位和行号,则无关紧要,只是与呼叫来自唯一位置的内容。
需要快速计算位置ID,因为它将用于决定缓存数据是否可用。
例如。
type
TTestObject = class
public
procedure TestProc;
procedure TestCall;
end;
...
procedure TTestObject.TestProc;
begin
TestCall; // "Point A" - Displays "Point A"
TestCall; // "Point B" - Displays "Point B"
end;
procedure TTestObject.TestCall;
begin
ShowMessage(SomehowGetTheCallingLineLocation); // Displays "Point A" or "Point B" depending on which line above it is called from
end;
end.
“Point A”,然后在调用TestProc时显示“Point B”,无论创建了多少TTestObject实例或它们驻留在内存中。
该功能将用于生成SQL。目前,我将GUID传递给生成SQL的调用。此GUID用于从缓存中提取SQL(如果已生成)。
NewCommand(NewUpdateCriteria('{C43D3B79-9E73-4A4B-9E29-0553542AD0B2}').
SetValue('AFIELD', AValue).
Table
('ATABLE').
Where
(NewSQLComparitor
('ID', EqualTo, AID)));
调用位置的查找需要很快,否则它会通过缓存SQL来消除我们应该看到的速度提升。
该组件最终可能成为开源,因此我无法使用任何商业第三方组件。我还想避免依赖像JEDI这样的开源库。
答案 0 :(得分:5)
根据您更新的问题,您只需要能够识别一个来自与另一个呼叫不同的地方的呼叫。在这种情况下,您可以使用返回地址来标识呼叫者。并且可以通过调用未记录的内部函数System.ReturnAddress
来获得返回地址。
这个程序:
{$APPTYPE CONSOLE}
uses
System.SysUtils;
procedure Foo;
begin
Writeln(IntToHex(NativeInt(ReturnAddress), 8));
end;
begin
Foo;
Foo;
Foo;
Foo;
end.
在我的机器上生成此输出:
0041B491 0041B496 0041B49B 0041B4A0