Delphi 6 Internal Error URW3537

最新推荐文章于 2016-06-20 16:27:00 发布

budded

最新推荐文章于 2016-06-20 16:27:00 发布

阅读量1.5k

点赞数 1

分类专栏： Delphi 文章标签： delphi function build

本文链接：https://blog.csdn.net/budded/article/details/3555478

版权

Delphi 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

最近在用D6/7做开发，发现D6的函数内部的函数类型定义不能有默认参数，Build没有问题，可以通过，Compile就会报Internal Error URW3537，代码如下：

 
 function TSpreadEntry.SpreadQuotaList: ISpreadQuotaList;
const
  DLLProc = 'SpreadQuotaList';
type
  TLoadDLL = function (const Access: TAccessType = atGet): ISpreadQuotaList; stdcall;
var
  FLoad: TLoadDLL;
begin
  Result := nil;
  FLoad := TLoadDLL(GetProcAddress(FLib, DLLProc));
  if Assigned(FLoad) then
    Result := FLoad();
end;
 