在Delphi 2009中投射匿名程序

发布时间：2020-12-15 04:11:53 所属栏目：大数据来源：网络整理

导读：以下代码(仅用于演示问题)构建并在Delphi 2010中工作.在Delphi 2009中,编译器失败并显示“E2035实际参数不足”. program Project50;{$APPTYPE CONSOLE}uses SysUtils;type TMyProc = reference to procedure(param: integer);var a: TProc; b: TMyProc;begin

以下代码(仅用于演示问题)构建并在Delphi 2010中工作.在Delphi 2009中,编译器失败并显示“E2035实际参数不足”.

program Project50;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TMyProc = reference to procedure(param: integer);

var
  a: TProc;
  b: TMyProc;

begin
  b := procedure (param: integer)
    begin
    end;
  a := TProc(b); // <-- [DCC Error] Project50.dpr(19): E2035 Not enough actual parameters
end.

我发现只有一个非常难看的黑客来解决这个问题(a：TProc绝对b).有没有人知道这个编译器缺陷的更好的解决方法？

[TProc字段实际上隐藏在可以存储各种’可执行’代码的记录中 – TProcedure,TMethod和TProc. Casting用于将特定的匿名proc存储到此字段中.]

解决方法

我发现了一个黑客#2：

program Project1;

{$APPTYPE CONSOLE}


uses
  SysUtils;

type
  TMyProc = reference to procedure(param: integer);

var
  a: TProc;
  b: TMyProc;

begin
  b := procedure (param: integer)
    begin
      Writeln('asdf');
    end;
  PPointer(@a)^ := PPointer(@b)^;
  a;
  readln;
end.

我怀疑你想通过将TMyProc(带param参数)分配给TProc(没有参数)来实现什么？

更新：一个hack#3(应该增加ref计数器,这个想法是从System._IntfCopy中窃取的)：

procedure AnonCopy(var Dest; const Source);
var
  P: Pointer;

begin
  P:= Pointer(Dest);
  if Pointer(Source) <> nil
    then IInterface(Source)._AddRef;
  Pointer(Dest):= Pointer(Source);
  if P <> nil then
    IInterface(P)._Release;
end;

var
  a: TProc;
  b: TMyProc;

begin
  b := procedure (param: integer)
    begin
      Writeln('asdf');
    end;
  AnonCopy(a,b);
//  PPointer(@a)^ := PPointer(@b)^;
  a;
  readln;
end.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!