"函数过程列表"专家的问题

　　我用的是Delphi7,使用的是８月３１日发布的版本。
　　在写动态链接库时，发现［函数过程列表］专家不能显示出函数过程名。

　　GExperts的［过程列表］专家就能够显示出来。

或者如果方便的话，能否将处理不正常的单元发到 master@cnpack.org ？

不好意思，确实不太方便将单元文件发送。
　　我将我的动态链接库简单说明一下：
　　只有一个.dpr单元和一个.pas单元，
　　我的主要内容都写在了.dpr文件内。
　　发现［函数过程列表］专家不能显示出函数过程名也是在.dpr文件内。

　　因不知道怎么将图在这里发送，我将抓的图发送到了邮件。
　　

　　您好，下面我做了一个简单动态库示例，保存为.dpr文件即可。
    下面一个简单的示例，“函数过程列表”专家不能显示出函数过程名。


－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
library Project1;

uses
  SysUtils,
  Classes;


{$R *.res}
function InStr(const sShort: string; const sLong: string): Boolean;
var
  s1, s2: string;
begin
  s1 := LowerCase(sShort);
  s2 := LowerCase(sLong);
  Result := Pos(s1, s2) > 0;
end;

function IntToStrEx(Value: Integer; Len: Integer; FillChar: Char = '0'): string;
begin
  Result := IntToStr(Value);
  while Length(Result) < Len do
    Result := FillChar + Result;
end;


exports
  InStr,
  IntToStrEx;

begin
end.

不好意思，以前没有完全测试，现在测试了一下，好像是CnWizards里的“函数过程列表”专家不支持在".dpr'后辍的单元中显示函数过程。


　请看如下一个SkipErrorProc.dpr单元。


program SkipErrorProc;
{$APPTYPE CONSOLE}
{$O-}

procedure LogError(ErrorCode: Integer; ErrorAddr: Pointer);
begin
  writeln('Code: ', ErrorCode, ' Addr: ', LongInt(ErrorAddr));

  // 清除堆栈，返回到Error()例程调用之前
  asm
    {$IFOPT W+}
      RET 6 * TYPE DWORD
    {$ELSE}
      RET 3 * TYPE DWORD
    {$ENDIF}
  end;
end;

var
  p : Pointer;

begin
  ErrorProc := @LogError;

  getmem(p, 1024*1024*1024);  // 试图分配过大的内存块，引发 reOutOfMemory 错误
  writeln('now, to here...');

readln;
end.

　　不好意思，贴代码上来有点占篇幅。由于确实是在测试时出了问题，才贴出来的。
　　我在以下代码（TestHaveException.dpr）中使用“函数过程列表”专家时，Delphi7停止了响应。


program TestHaveException;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function HaveException : boolean;
const
  {$WRITEABLECONST ON}
  IsFinally : LongInt =  0;

  procedure GetFinallyReturnAddr;
  begin
    try
      try
        asm xor eax, eax; idiv eax end;
      finally
        asm pop [IsFinally]; push [IsFinally] end;
      end;
    except
    end;
  end;

asm
  CMP   IsFinally, 0
  JNE   @@CHECK
  CALL  GetFinallyReturnAddr

@@CHECK:
  MOV   EAX, [ESP + 4]
  CMP   IsFinally, EAX
  JE    @@DONE
  MOV   EAX, 0
@@DONE:
end;

function HaveException_beta : boolean;
asm
end;

var
  i : integer;
begin
  try
    i := 3;
    i := 5 div i;
  finally
    Writeln(BoolToStr(HaveException, True));
  end;

  try
    i := 0;
    i := 5 div i;
  finally
    Writeln(BoolToStr(HaveException, True));
  end;

end.

非常感谢您细致的测试，我们会尽快分析并修正这个问题。请关注网站更新提示。

http://www.cnpack.org:8008/cnpack/tktview?tn=41
另外，论坛上帖图只要把图片作为附件上传就行了。

此问题已经解决。是我们遗漏了对dpr文件的处理导致了Parser出错。非常感谢您的细致报告。
任务单见：
http://www.cnpack.org:8008/cnpack/tktview?tn=41

欢迎下载最新版本来测试。

　我下了最新版本的，还是不能对dpr文件时行处理，是否是新版中未加入更改的？

抱歉，您所描述的错误是我们最近在增加对interface支持时引入的，给您带来了不便。我们尽快改正。

目前的最新构建版本中已经修复了此问题。
http://www.cnpack.org/download/u ... .9.166_Unstable.exe
对带来的不便，深表歉意。