首先，抱歉代码示例有点长，但我认为它需要来说明我的问题。
作为调试帮助，我经常在我的对象上引入一个“DebugString”方法，它返回一个简洁的对象摘要。但是有时我的对象太复杂了，无法用单个字符串最优地表示，因此我使用字符串列表。现在，我想使用Delphi中出色的调试可视化工具来监视我的对象。我这样做的方式是引入一个带有getter的属性，用于重建字符串列表。
这种方法有点可行，但每次我跟踪一行代码时，属性就会超出范围，所以我必须再次点击观察窗口中的放大镜才能看到值。这是为什么呢？
要重现，请创建一个新的控制台应用程序：
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
Classes;
type
TMyClass = class
private
FInternalData : array[0..4] of integer;
FDebugStringList : TStringList;
procedure RebuildDebugStringlist;
function GetDebugStringList: TStringList;
function GetDebugString : string;
public
constructor Create;
destructor Destroy; override;
procedure Scramble;
property DebugStringList : TStringList read GetDebugStringList;
property DebugString : string read GetDebugString;
end;
constructor TMyClass.Create;
begin
FDebugStringList := TStringList.Create;
end;
destructor TMyClass.Destroy;
begin
FDebugStringList.Free;
inherited;
end;
function TMyClass.GetDebugString: string;
var
I : integer;
begin
Result := 'Object state: ';
for I := 0 to 3 do
Result := Result + inttostr(FInternalData[I])+' ';
end;
function TMyClass.GetDebugStringList: TStringList;
begin
RebuildDebugStringlist;
Result := FDebugStringlist;
end;
procedure TMyClass.RebuildDebugStringlist;
var
I : integer;
begin
FDebugStringList.Clear;
FDebugStringList.Add('Object state:');
for I := 0 to 4 do
FDebugStringList.Add(inttostr(FInternalData[I]));
end;
procedure TMyClass.Scramble;
var
I : integer;
begin
for I := 0 to 4 do
FInternalData[I] := Random(100);
end;
var
vMyObj : TMyClass;
begin
vMyObj := TMyClass.Create;
try
vMyObj.Scramble;
vMyObj.Scramble;
vMyObj.Scramble;
finally
vMyObj.Free;
end;
readln;
end.
- 为 "vMyObj.DebugStringList" 和 "vMyObj.DebugString" 添加监视器
- 在第77行（第二个 "vMyObj.Scramble"）上设置断点，然后运行。
- 单击“DebugStringList”旁边的放大镜以获取可视化工具
- 观察可视化工具的良好运作 :)
- 跳过下一行。现在，可视化工具指示监视器超出了范围。
- 再次按下放大镜以查看对象的新状态。
为什么可视化工具会显示监视器超出了范围？我该如何解决这个问题？
PS：我知道我可以编写调试可视化工具，但我在某些自动测试中使用“DebugString”和“DebugStringList”，因此我真的希望能够以这种简单的方式使用它们。
更新：我使用 Delphi XE
更新2：尽管 Marjan Venema 做出了很好的努力，但我仍然没有解决这个问题。我已向 Embarcadero 提交了报告（QC 号码 98062，请投票 :-))。然而，我怀疑 Embarcadero 解决这个问题需要一些时间，而且考虑到我仍然对解决方法感兴趣，我将提供一小笔赏金。以前从未尝试过，所以很有趣。