testabsolute.out

来自「格式化源码的最新板」· OUT 代码 · 共 19 行

unit testabsolute;

interface

implementation

uses Classes;

function methodpointertodouble(pmmethod: TNotifyEvent): double;
var
  lmmethod: TNotifyEvent;
  ldcast:   double absolute pmmethod;
begin
  lmmethod := pmmethod;
  Result   := ldcast;
end;

end.