我经常使用小方法来协助调试,这些方法在实际程序中没有使用。通常,我的大多数类都有一个AsString方法,我将其添加到手表中。我知道Delphi 2010有可视化工具,但我还在2007年。
考虑这个例子:
program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
type
TMyClass = class
F : integer;
function AsString : string;
end;
function TMyClass.AsString: string;
begin
Result := 'Test: '+IntToStr(F);
end;
function SomeTest(aMC : TMyClass) : boolean;
begin
//I want to be able to watch aMC.AsString while debugging this complex routine!
Result := aMC.F > 100;
end;
var
X : TMyClass;
begin
X := TMyClass.Create;
try
X.F := 100;
if SomeTest(X)
then writeln('OK')
else writeln('Fail');
finally
X.Free;
end;
readln;
end.
如果我将X.AsString添加为监视器,我只是得到“要调用的函数,TMyClass.AsString,被链接器删除”。
如何强制链接器包含它?我通常的诀窍是在程序中的某个地方使用方法,但是不是有更优雅的方法吗?
解答: GJ提供了最好的方法。
initialization
exit;
TMyClass(nil).AsString;
end.
答案 0 :(得分:6)
您可以发布功能。
TMyClass = class
F : integer;
published
function AsString : string;
end;
然后在“观看属性”中启用“允许函数调用”
答案 1 :(得分:6)
Delphi编译器很聪明...... 所以你可以做点像......
unit UnitA;
interface
{$DEFINE DEBUG}
function AsString: string;
implementation
function AsString: string;
begin
Result := 'Test: ';
end;
{$IFDEF DEBUG}
initialization
exit;
AsString;
{$ENDIF}
end.
答案 2 :(得分:0)
也许它可以在一些初始化部分调用它们,由{IFDEF DEBUG}或{IFOPT D +}保护。